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Abstract 


Linear  programming  is  an  analytical  technique  used  in 
decision  analysis.  This  paper  describes  the  development  and 
use  o-f  a  highly  interactive,  non-programmer  oriented,  linear 
programming  software  package  implemented  on  a  microcomputer. 
This  software,  written  in  FORTRAN  and  supported  by  the  UCSD 
Pascal  Operating  System,  has  allowed  increased  portability 
while  providing  the  capability  of  solving  moderate— sized  LP 
models.  Also  available  are  extensive  postoptimal 
sensitivity  analysis  capabilities. 

The  modul ar ly  implemented  package  provides  interactive, 
instructional  sessions  with  user  input  LP  models.  The  user 
is  guided  through  tableau  formulation  and  pivot  element 
selection  to  an  optimal  solution  by  a  series  of  option 
displays  and  user  selections.  This  module  also  provides 
instructors  the  ability  to  rapidly  demonstrate  the 
application  of  the  simplex  algorithm. 

A  separate  module  provides  a  more  rapid  problem 
solution  with  minimal  interaction.  Options  allow  either 
primal  or  dual  problem  solution  with  screen-oriented  output 
to  either  a  monitor  or  printer.  The  sensitivity  analysis 
capabilities  include  right-hand-side,  cost  coefficient,  and 
constraint  coefficient  ranging.  Also  provided  is  the 
ability  to  add  constraints  and  variables  to  the  original 
model . 
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FORTRAN  BASED  LINEAR  PROGRAMMING 


FOR 

M I CROCOHPUTERS 


I  INIBQDUGIIQN 

Managers  at  all  levels  o-f  private  and  public 
organizations  are  continuously  confronted  with  the  burden  of 
decision  making  and  the  subsequent  accountability  for  such 
decisions.  The  criticality  of  these  decisions  may  not  be 
immediately  obvious  to  the  manager  or  to  the  organization, 
yet  the  outcome  may  contribute  to  the  success  or  the  failure 
of  the  organization. 

A  large  fraction  of  these  decisions  involve  the  amount 
of  organizational  resources,  such  as  manpower,-  equipment,  or 
funds,  to  dedicate  to  a  particular  project  or  operation. 
Although  one  could  attempt  to  dedicate  the  necessary 
resources  required  to  maximize  the  output  of  each  operation, 
one  would  soon  realize  a  shortage  in  one  or  many  of  these 
organizational  assets.  One  might  then  attempt  purely 
subjective  evaluations  of  the  worth  of  various  projects  and 
allocate  resources  based  upon  this  process.  However,  for 
high  level  managers  of  diverse  organizations,  this  may  be 
beyond  the  bounds  of  comprehension  due  to  the  magnitude  of 


1 


activities  under  their  control. 

Therefore,  managers  have  sought  methods  which  will 
allow  a  systematic  and  accurate  analysis  of  numerous 
operations  in  a  timely  manner.  A  decision  which  is 
accurate,  but  late,  may  be  of  less  value  than  an  inaccurate 
decision  which  has  been  made  in  sufficient  time.  This 
search  has  lead  to  the  development  and  implementation  of 
several  mathematical  programming  techniques.  One  important 
subset  of  these  mathematical  programming  techniques  is 
linear  programming. 

Li near  Programming 

Mathematical  programming,  which  consists  of  several 
specific  optimization  techniques,  has  been  defined  as  the 
use  of  mathematical  representations  (models)  to  plan 
(program)  an  allocation  of  scarce  resources  among  competing 
activities.  Linear  programming  is  one  such  technique 
commonly  used  by  analysts  and  is  an  optimization  technique 
which  involves  only  linear  mathematical  relationships  (Ref 
4»35) .  Although  the  term  "programming"  is  used,  in  this 
context  it  does  not  refer  to  computer  programming.  The  term 
in  this  setting  refers  to  the  selection  of  a  particular 
course  of  action  or  program  and  is  a  synonym  for  planning. 

Although  mathematical  optimization  techniques  have  been 
present  for  many  years,  the  last  three  decades  have  shown  a 
great  increased  use  of  quantitative  tools  in  aiding 
managerial  decision  making  (Ref  22iXI).  Many  techniques 


have  been  developed  in  this  new  reale  of  application,  but 
none  so  popular  as  linear  programming.  George  B.  Dantzig 
and  his  associates  -first  developed  and  applied  this 
technique  in  1947  -fol lowing  a  proposal  that  the  interaction 
of  the  activities  in  an  organization  may  be  viewed  as  linear 
relationships  <Ref  10: IX).  In  conjunction  with  this 
development,  Oantzig  also  proposed  the  simplex  algorithm 
which  has  been  shown  to  be  a  systematic  procedure  -for  the 
solution  of  such  linearly  defined  problems. 

The  linear  programming  technique,  although  fairly 
recent.,  was  estimated  to  account  for  25  percent  of  all 
scientific  computations  in  1970  <Ref  22: XVI).  The  extensive 
use  of  such  a  technique  coupled  with  the  increased  use  of 
the  computer  for  all  types  of  computational  procedures  has 
lead  to  the  development  of  extensive  software  packages 
implementing  linear  programming  on  mainframe  computer 
systems.  These  software  packages  are  capable  of  quickly 
solving  problems  consisting  of  hundreds  of  variables  and 
constraints.  The  manager  now  has  the  capability  of 
performing  complex  linear  programming  computations  within  a 
matter  of  minutes. 

Computer  State-of -the-ftrt 

Managers  now  have  the  analytical  tools  and 
computational  capability  to  solve  linear  programming 
problems,  but  is  the  computational  power  accessible?  As 


mentioned  previously,  extensive  linear  programming  software 


packages  have  been  developed  and  implemented  on  large 
main-frame  computer  systems.  These  computer  systems  have 
essentially  unlimited  storage  capabilities  and  very  rapid 
computational  rates.  These  combined  capabilities  have  given 
rise  to  the  problem  solving  capabilities  previously 
mentioned.  However,  availability  o-F  these  large  systems  is 
somewhat  limited  due  to  the  large  acquisition  expense  and 
stationary  support  requirements.  Also,  access  to  such 
systems  may  be  limited  to  those  managers  who  are  operating 
in  the  immediate  vicinity  o-f  such  systems.  This  is 
particularly  true  for  military  leaders  who  may  be  operating 
in  remote  locations  yet  still  require  quantitative  decision 
anal ysi s  support . 

Recent  advances  in  communications  links  now  allow  the 
use  of  remote  terminals  and  peripherals  which  greatly  reduce 
the  problem  of  computer  accessibility.  However,  due  to  the 
increased  use  of  computers  in  all  aspects  of  management,  the 
number  of  users  attempting  to  access  the  computer  is 
normally  quite  large.  This  aspect  may  then  cause  the 
response  time  of  non-dedicated  remote  computer  systems  to  be 
unacceptable  in  a  time  critical  environment. 

The  recent  explosive  development  of  the  microcomputers 
or  "desk-top"  computers  may  offer  a  solution  to  many  of  the 
problems  associated  with  the  large  mainframe  computer- 
systems.  Prior  to  the  late  1970' s,  microcomputers  were 
little  more  than  toys,  characterized  by  very  limited  memory 
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capabilities,  difficult  input/output  procedures,  and  awkward 
data  storage  facilities.  From  that  meager  start,  the 
capabilities  of  microcomputers  radically  increased.  Most 
business  oriented  microcomputers  have  a  random  access  memory 
(RAM)  of  64,000  (64K)  bytes  (approximately  64,000 
characters)  with  the  capability  to  expand  to  256K  RAM.  The 
data  storage  medium  has  advanced  from  slow  cassette  tape  to 
floppy  disks  to  the  present  hard  disks  which  can  store  many 
millions  of  bytes  per  disk. 

Noteworthy  advances  have  also  been  achieved  in  the 
programming  languages  available  for  use  with  these 
microcomputers.  Until  recently,  mi crocomputer s  were  usually 
limited  to  the  machine  specific  BASIC  language  as  the  only 
available  high-level  language.  Now,  many  microcomputers 
support  more  universal  and  powerful  languages  such  as 
FORTRAN,  PASCAL,  and  APL.  It  is  the  availability  of  these 
languages,  based  upon  standardized  rules,  which  has  allowed 
increased  portability  of  programs  from  machine  to  machine. 

The  recent  microcomputer  developments  coupled  with  the 
even  more  recent  language  availability  to  these  machines 
have  surmounted  the  initial  obstacles  to  the  use  of 
microcomputers  for  application  of  quantitative  analysis 
techniques.  However,  the  development  of  software  has  yet  to 
be  considered.  The  development  of  software  for  mainframe 
computer  systems  has  occurred  over  several  years.  Also, 
software  packages  are  readily  available  which  allow  the 
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non-programming  oriented  manager  access  to  efficient 
techniques  applying  both  general  and  specific  problem 
solving  methods.  This  option  is  not  so  readily  available 
for  the  more  recent  microcomputers.  Although  the 
development  of  software  for  the  microcomputers  is  ever 
increasing,  the  packages  often  require  the  user  to  be  quite 
knowledgable  in  programming  in  order  to  use  the  specific 
decision  analysis  aids. 

Software  availability  is  not  the  only  difficulty  that 
the  microcomputer  user  will  encounter.  In  exchange  for  the 
ease  of  availability,  accessibility,  and  dedicated 
computational  support,  the  user  of  “desk-top**  computers  will 
find  a  marked  decrease  in  memory  capabilities  and 
computation  rates.  The  limited  memory  capabilities  greatly 
reduces  the  problems  which  may  be  attempted.  The  marked 
decrease  in  computational  speed  will  considerably  increase 
the  length  of  time  required  to  obtain  results. 

The  above  stated  problems  are  not  insurmountable,  yet 
are  serious  limitations  imposed  by  the  use  of 
microcomputers.  The  most  serious  problem  is  the  critically 
limited,  if  existent,  availability  of  user-oriented, 
portable  software  for  the  microcomputers.  This  problem 
renders  the  recent  mi crocomputers  virtually  useless  for  the 
managers  who  have  insufficient  background  and,  possibly  even 
more  critical,  insufficient  time  to  formulate  and  implement 
a  decision  making  algorithm  when  needed.  In  order  for  the 
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advantages  of  the  microcomputer  to  bs  extended  to  a  larger 
percentage  of  the  decision  makers,  software  development  is 
required  of  the  various  mathematical  modeling  algorithms, 
and  in  particular,  the  intensely  used  linear  programming 
algorithm.  Although  the  microcomputer  can  not  replace  the 
large  mainframe  computer  systems,  it  may  prove  to  be  a 
supplement  in  areas  of  moderately  sized  problems  and  greatly 
aid  in  a  more  rapid  response  to  less  complex  problems. 

Current  Mi crocomouter  LP  Software  Development 

A  literature  search  conducted  in  June,  1982  revealed 
only  one  non-propri etary  mi crocomputer  linear  programming 
software  package  documented.  This  analysis  package, 
developed  by  Robert  D.  Conte  <Ref  6),  consists  of  several 
analysis  techniques,  including  linear  programming, 
implemented  on  an  Apple  II  microcomputer  in  its  machine 
specific  language  Applesoft.  This  interactive  package  has 
been  well  designed  and  implemented  with  true  consideration 
for  the  non-programmer  oriented  user.  Although  the  linear 
programming  portion  is  capable  of  solving  problems 
consisting  of  twenty  constraints  and  twenty  variables,  true 
sensitivity  analysis  was  not  available.  However,  due  to  its 
extensive  editing  features,  one  may  respecify  various 
parameters  and  resolve  the  problem  to  arrive  at  equivalent 
sensitivity  analysis  results. 

Four  microcomputer  based  linear  programming  software 
developments  were  recently  discussed  and  displayed  at  the 
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T1MS/0RSA  meeting  in  Detroit,  Michigan  during  April,  1982. 
The  first  which  will  be  discussed  was  developed  by  Ralph  M. 
Swain  (Ref  20).  Its  primary  purpose  was  that  of  graphical 
demonstration  of  techniques  commonly  utilized  in  operations 
research.  Although  a  great  aid  in  demonstrating  the 
behavior  of  systems,  its  use  to  the  manager  and  analyst  is 
somewhat  limited. 

Rolf  A.  Daininger  (Ref  7)  has  developed  and 
implemented  an  instructional  aid  which  will  display  the 
various  iteration's  tableaus  for  a  maximum  of  nine 
constraints  and  twenty  variables.  Implemented  on  an  Apple 
II  microcomputer  in  Applesoft,  it  has  proven  to  be  a  great 
aid  in  allowing  students  to  concentrate  on  the  simplex 
algorithm  methodology  and  solution  process  rather  than  the 
numeric  operations  involved. 

Gary  E.  Whitehouse  and  Yassar  A.  Hosni  (Ref  21) 
presented  an  extensive  software  package  consisting  of 
forty-two  small  problem  oriented  programs.  Several  of  these 
programs  directly  or  indirectly  involved  linear  programming. 
Examples  are  the  application  of  the  simplex  algorithm  to  an 
LP  problem  and  graphical  solution  of  a  two  variable  LP 
problem.  An  advantage  of  these  programs  is  that  even  though 
written  in  BASIC,  versions  are  available  for  both  the  Apple 
II  and  the  TRS-80  microcomputers.  Although  each  version  is 
not  portable  between  these  or  other  systems,  a  larger 
potential  set  of  users  have  access  to  such  software. 
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The  last  currant  davalopaant  in  LP  software  was 
presented  by  Byron  Gottfried  (Ref  12) .  This  package,  as 
implemented  on  the  Apple  II  mi crocomputer ,  is  capable  of 
solving  problems  of  approximately  forty-five  constraints  and 
ninety  variables  (after  the  augmented  basis  has  been 
implemented).  Another  version  has  been  implemented  on  an 
IBM  mi crocomputer  which  has  larger  capabilities  and  this 
version  includes  limited  sensitivity  analysis.  The 
sensitivity  analysis  included  is  right-hand— side  and 
cost-coef f icient  ranging  within  the  present  feasible 
solution.  Both  versions  were  developed  in  their  respective 
machine  specific  BASIC  language  and  are  currently  not 
portable  to  other  machines  or  between  the  two  target 
systems. 

The  linear  programming  software  presently  found  to 
exist  for  microcomputers  has  been  implemented  in  the 
respective  machine  specific  BASIC  languages.  Although  each 
package  individually  is  of  significant  value,  each  has  its 
limitations  in  both  significance  and  applicability.  It 
would  be  advantageous  to  construct  a  single  package  which 
implements  many  of  those  already  implemented  plus  expands 
the  capabilities  in  many  areas.  Particular  emphasis  may  be 
desired  in  the  area  of  instructional  aids  designed  for  use 
by  both  instructors  and  students.  Although  the  work  of 
Daininger  (Ref  7)  has  allowed  the  instructor  to  more  easily 
demonstrate  the  computations  of  the  simplex  algorithm. 
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little  has  bssn  dons  in  ths  arsa  of  soft wars  dsvslopssnt  for 
indspsndsnt  studsnt  uss.  Such  sof tsars  could  alios  ths 
studsnt  sith  Minimal  linear  programming  background  to 
rsinforcs  ths  application  of  a  linear  programming  solution 
technique  to  an  LP  problem.  Also,  if  this  implementation 
sas  in  a  high-level  language  shich  sas  more  portable,  it 
sould  enhance  such  a  development  even  more. 

Motivation  for  Further  Resg*rch 

To  insure  a  tool  is  utilized  to  its  potential,  it  must 
be  developed  sith  the  user  needs  as  a  primary  consideration. 
Also,  the  availability  and  accessibility  of  such  a  tool  must 
be  maximized  for  users  to  consider  its  use  beneficial. 
Linear  programming  is  no  exception. 

The  problem  addressed  in  this  research  sas  the 
development  and  implementation  of  a  linear  programming 
softsare  package  shich  alloss  the  user  extensive  problem 
solving  capabilities  of  small  LP  problems  on  a  mi crocomputer 
system.  Although  the  package  was  planned  for  use  by 
analysts  requiring  responsive  dedicated  decision  analysis 
support,  features  may  be  incorporated  shich  sill  alios 
students  and  instructors  of  linear  programming  to  be 
beneficial  users.  The  package  was  developed  with  ease  of 
user  interface  and  minimum  programming  experience  as  primary 
considerations  as  well  as  the  desire  for  maximum  portability 
between  available  microcomputer  systems.  These  objectives 
have  lead  to  a  modular  package  design  with  the  requirement 
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for  user  interaction  being  dependent  upon  user  desires.  The 
aforementioned  goals  must  be  balanced  in  light  of  the 
limitations  as  well  as  the  advantages  offered  by  a  dedicated 
microcomputer  system. 
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Linear  programming,  as  has  bssn  mentioned  previously, 
is  a  very  powerful  optimization  technique  commonly  used  by 
today's  leaders  and  managers.  Although  the  subject  of 
linear  programming  is  found  in  numerous  text  and  reference 
books  which  a  manager  may  review,  each  approach  the  subject 
in  different  manners  and  elaborate  to  different  levels  of 
detail.  Some  discuss  the  theoretical  development  and 
background,  others  the  methodology,  and  yet  others  focus 
primarily  on  the  application  of  the  optimization  algorithms 
to  specific  type  problems.  This  wide  spectrum  of  literature 
may  cause  an  aspiring  manager  to  misinterpret  the  true  power 
and  validity  of  these  techniques  if  an  overview  of  the 
subject  can  not  be  captured. 

The  purpose  of  this  chapter  is  to  provide  the  reader  an 
insight  into  the  theoretical  development  of  linear 
programming,  with  emphasis  on  the  simplex  algorithm.  This 
theoretical  background  will  be  presented  in  conjunction  with 
the  simplex  algorithm  methodology  in  hopes  of  assisting  the 
reader  in  gaining  a  more  thorough  understanding  of  the 
simplex  algorithm  and  its  application  to  problem  solving. 

For  our  purposes,  the  LP  model  to  be  discussed  will  be 
as  shown  below  in  EQ<1)  through  EQ<3>.  The  dimension  of  m 
represents  the  number  of  functional  constraints,  excluding 
nonnegativity  constraints,  in  EQ(2).  The  dimension  of  n 
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represents  the  nueber  of  variables  in  the  original  problee 
including  the  slack  variables  required  to  transform  the 
constraints  into  the  equality  form  as  shown  in  EQ<2)  below. 
Therefore,  the  LP  model  isi 

maximize  z*  CX_ 

Subject  to 

AA  *  fi 

X  >  0 

where 

z  ■  scalar  value  of  objective  function 
£  =  row  vector  of  dimension  n 
_X  »  column  vector  of  dimension  n 
A  *  m  x  n  matrix 

£  =  column  vector  of  dimension  m 
Q  =  n  dimensional  null  vector 

A  few  definitions  will  be  presented  to  provide  a  basis 
for  further  discussion.  First,  a  feasible  solution  to  an  LP 
problem  is  an  n  dimensional  vector  X  which  satisfies  EQ<2) 
and  (3)  above.  Therefore,  each  element  of  the  vector  is 
nonnegative  and  provides  a  solution  to  EQ(2).  A  basic 
solution  is  also  a  n  dimensional  vector  X  which  Satisfies 
EQ <2) }  however,  a  maximum  of  m  elements  of  this  vector  are 
nonzero  elements.  A  basic  feasible  solution  is  a  basic 
solution  which  also  satisfies  EQ(3).  Therefore,  a  basic 
feasible  solution  contains  a  maximum  of  m  elements  (called 
the  basic  variables)  which  are  nonnegative  with  the 
remaining  (n-m)  elements  (called  nonbasic  variables)  having 
a  value  of  zero.  A  basic  feasible  solution  which  contains 


(1) 

(2) 
(3) 


13 


f  »wtr  than  m  nonztro  el  aments  is  called  a  degenerate 
solution.  An  optimal  solution  is  a  basic  solution  which 
also  maximizes  the  value  o-f  z  in  EQ(1>.  I-f  the  optimal 
solution  is  also  -feasible,  that  is,  EQ<3)  is  satisfied,  then 
the  solution  is  an  optimal  feasible  solution.  Otherwise, 
the  solution  is  optimal  but  infeasible  (superoptimal )  for 
the  LP  problem  as  stated. 

To  introduce  the  simplex  method,  one  may  want  to  first 
review  the  geometric  considerations  of  the  problem.  As  the 
problem  is  stated,  there  are  m  functional  constraints, 
represented  by  EQ<2),  which  may  or  may  not  be  redundant. 
Also,  n  nonnegativity  constraints  are  imposed  by  the 
problem.  Considering  a  two  dimensional  space  <n— 2)  and 
three  constraints  (m»3) ,  one  might  find  a  graphical 
depiction  of  a  problem  as  shown  in  Figure  1. 

From  the  graph  and  the  constraints  shown  below  it,  it 
should  be  recognized  that  the  shaded  area  is  the  solution 
space  of  this  problem  (Note:  the  nonnegativity  constraints 
are  enforced  in  the  graphical  depiction).  This  solution 
space  and  the  solution  space  for  all  LP  problems  forms  a 
convex  set,  and  therefore  the  convex  combination  of  any  two 
points  in  the  solution  set  is  also  in  the  solution  set  (Ref 
10:50).  This  solution  set  is  bounded  by  a  finite  number  of 
linear  constraints  which  further  implies  that  there  are  a 
finite  number  of  intersection  points  of  these  constraints. 
It  has  been  further  shown  that  any  point  in  a  non-null 


Figure  1.  Graphical  Solution 


convex  set  may  be  represented  by  a  convex  combination  of  the 
extreme  points  Cannotated  by  A,  B,  C,  D,  and  E  in  Figure  11 
of  the  convex  set  (Ref  10:29).  The  above  discussion  implies 
that  of  the  infinite  possible  solutions  to  an  LP  problem, 
all  may  be  represented  by  a  convex  combination  of  a  finite 
number  of  solution  space  extreme  points. 

Assume  that  a  solution  set  to  an  LP  problem  exists. 
Also  assume  that  this  solution  set  consists  of  an  infinite 
number  of  points  and  that  each  solution  in  this  set  may  be 


ripr«Mnt*d  by  in  n  dimensional  vector  X.  It  has  been 
proven  that  a  point  in  n  space,  which  includes  our  solution 
set,  way  be  represented  by  the  interaction  of  a  linearly 
independent  vectors,  where  a  <  n  (Ref  19:62-71).  As  a 
result,  any  point  represented  by  a  linearly  independent  n 
dieensional  vectors  will  contain  at  aost  a  nonzero  eleaents 
and  at  least  (n-e)  zero  eleaents. 

It  may  be  shown  that  the  objective  function,  EQ(1), 
assuaes  its  optimal  value  at  an  extreme  point  of  the  convex 
set  or,  if  at  more  than  one,  the  objective  value,  z,  is  the 
same  for  all  convex  combinations  of  these  extreme  points 
(Ref  10:50-51).  Therefore,  only  the  extreme  points  of  the 
convex  set  must  be  investigated  in  the  search  for  an  optimal 
solution.  The  number  of  extreme  points,  although  possibly 
large,  is  finite  and  greatly  reduces  the  number  of  points 
which  require  investigation  to  determine  the  optimal 
solution.  If  a  set  of  m  linearly  independent  vectors  aay  be 
found,  with  the  solution  vector  containing  at  aost  m 
nonnegative  eleaents  and  at  least  (n-a)  zero  elements,  the 
solution  corresponds  to  an  extreme  point  of  the  convex  set 
(Ref  10:53). 

The  above  implies  that  only  the  extreme  points 
generated  by  m  linearly  independent  vectors  must  be 
investigated  in  the  search  for  an  optimal  solution. 
Consider  now  the  A  matrix  in  EQ(2)  and  envision  each  column 
of  the  matrix  as  an  m  dimensional  vector  V.  Although  a 
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linearly  independent  V  vectors  eay  not  be  >readily 
identifiable  in  the  problem  initially,  the  matrix  may  be 
augumented  by  a  set  of  m  linearly  independent  vectors  to 
provide  this  set  of  m  linearly  independent  vectors.  With 
this  m  dimensional  basis,  it  is  known  that,  at  most, 
Cn!/m! <n-m> ! 3  possible  solutions  exist  and  may  require 
investigation  since  this  is  the  number  of  combinations  of  m 
vectors  from  a  set  of  n  vectors  (Ref  9s 31). 

Up  to  this  point,  it  has  been  shown  that  of  the 
infinite  number  of  solutions  which  may  exist,  at  most 
tn!/m! <n~m) ! 3  require  investigation.  But  now  it  must  be 
asked,  how  are  these  extreme  points  determined?  Again 
envision  the  A  matrix  consisting  of  n  m— dimensional  vectors 
V ( 1 )  through  V<n).  Assume  that  the  first  m  vectors  are 
linearly  independent  and  that  X  is  a  basic  feasi  .e 
solution.  In  this  form,  EQ(2)  may  be  expressed  as  follows: 

xb(l)*V(l>  +  xb<2)*V(2)  +...+  xb(n)*V<n)=  B  (4) 

where 

xb<i)  are  the  elements  of  the  basic  feasible  solution 
X 

xb(i)>  0  1=1,... ,n 

It  has  been  assumed  that  V<1>  through  V(m)  are  linearly 
independent.  It  will  be  further  assumed  that  a  nonnegative 
combination  of  these  vectors  equals  the  vector  B. 
Therefore,  EQ<4)  may  be  now  expressed  as  shown  in  EQ<5) 
below.  Note  that  the  elements  of  X  from  xb(m+l>  through 


17 


xb(n>  art  equal  to  zero  due  to  the  linear  independence  of 
V<1)  through  V(m>. 


xb<  +  xb  (2)  *V <2)  +  ...+  xb(m>*V<m>  =  B  (5) 

It  is  known  that  any  o-f  the  n  vectors  eay  be 
represented  as  a  linear  combination  of  the  basis  vectors. 
There -fore  a  vector  V(k>,  where  k  >  m,  .-nay  be  represented  as 
follows: 

xk(l)*V<l)  *  xk (2) tV (2) . . .  +  xk  <m) *V  <m)  =  V(k>  (6) 

where 

xk(i)  represents  the  weight  of  the  i  (th>  vector  in  the 
linear  combination  forming  V(k)  when  V(k>  is  the 
selected  entering  basis  vector 

To  determine  a  new  solution  vector  X  to  EC(5>  which 
includes  at  most  <m+l)  nonzero  elements,  we  may  multiply 
EQ<6)  by  some  value,  say  T,  then  subtract  it  from  EQ<5>  to 
find: 

Cxb<l)-T*xk (1) 3*V<1)  +  Cxb(2>-T*xk<2)3*V(2)  ... 

+  Cxb  <m)-T*xb  <m) <m)  =  B-T*V(k>  (7) 


or 


Cxb<l)-T*xk <1) 3*V(1)  +  Cxb <2)-T*xk (2) 3*V<2) . . . 

+  Cxb(m)-T*xk <m> 3*V(m>  +  T*V(k>  =  B  (8) 

(assume  one  xk(i>  >  0  for  i»'l,...m> 

The  solution  vector  X  is  n  dimensional,  but  now 
contains  at  most  <m+i)  nonzero  elements.  It  must  now  be 
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noted  that  only  those  vectors  with  no  eore  than  e 
nonnegative  elements  are  desired  and  are  possible  basic 
-feasible  solutions.  Therefore,  the  solution  vector  for 
EQ<8)  must  contain  no  more  than  m  nonnegative  elements  to 
represent  an  extreme  point  of  the  convex  set.  The  problem 
at  this  point  is  to  determine  the  value  of  T  which  will 
force  one  of  the  elements  in  the  EQ(8>  solution  vector  to 
zero,  thereby  forcing  one  of  the  previous  vectors  CV(1) 
through  V(m)l  out  of  the  basis. 

With  the  above  insight,  it  may  be  determined  that  if 
the  multiplier  T  is  positive,  only  those  values  of  xk(i) 
which  are  positive  need  be  checked.  If  the  value  of  xk(i) 
was  nonpositive,  the  solution  element  Cxb (i ) -T*xk <i ) 3  would 
always  be  positive  and  would  not  approach  zero.  To 

determine  which  element  of  EQ(8)*s  solution  will  be  forced 
to  exactly  zero,  it  must  also  be  considered  that  al*  other 
elements  which  are  nonnegative  must  remain  nonnegative  in 
the  new  solution.  Theref-ore  we  want  to  find  that  element 
which  first  reduces  to  zero.  For  isi,...m,  the  element 
which  first  achieves 

xb<i)-T*xk(i)  -  0  <9) 

is  the  coefficient  of  the  vector  which  will  be  forced  out  of 
the  basis.  This  may  be  formulated  to  be: 

T  *  minCxb (i ) /xk (i ) 3  <101 

i  si 
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Using  the  above  value  -for  T,  one  may  determine  the  net*  basic 
solution  corresponding  to  another  extreme  point  of  the 
convex  set . 

One  should  recognize  that  if  a  vector  is  selected  to 
enter  the  basis,  CV(k)  in  this  example!  and  it  is  found  that 
all  xk(i)  are  less  than  zero,  this  basis  will  contain  m+1 
elements.  Since  the  new  solution  can  not  be  expressed  as  a 
basic  solution,  that  is,  m  nonnegative  elements  in  solution 
vector,  it  does  not  correspond  to  an  extreme  point  and 
therefore  is  not*  a  basic  solution.  This  situation  indicates 
that  the  problem  has  no  finite  maximum  solution  (unbounded) 
and  the  solution  process  is  terminated. 

From  the  previous  discussion,  one  may  find  all  extreme 
point  solutions  by  enumeration  and  evaluate  each  of  these 
solutions  in  terms  of  EQ(1)  to  determine  which  basic 
feasible  solution  produces  the  maximum  objective  value  z. 
Although  the  above  process  could,  in  theory,  be  performed, 
the  number  of  calculations  increases  exponentially  as  the 
number  of  variables  <n)  and  constraints  <m>  increase.  The 
discussion  of  the  simplex  algorithm  will  show  that  once  an 
initial  basic  feasible  solution  is  found,  an  optimal 
solution  may  then  be  found,  if  it  exists,  in  a  finite  number 
of  steps.  The  simplex  algorithm  allows  the  user  to  find 
only  those  basic  feasible  solutions  which  have  an  objective 
function  of  equal  or  greater  value  than  the  present 
solution.  Also,  the  algorithm  identifies  for  the  user  when 
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the  optical  solution  has  been  obtained  or  that  a  optimal 
solution  does  not  exist  (known  as  unbounded  solution). 

To  illustrate  the  methodology  of  the  simplex  algorithm 
in  light  of  the  theoretical  background,  consider  the 
numerical  example  given  earlier.  If  one  Mould  express  this 
problem  in  the  stated  form,  each  constraint  Mould  have  a 
slack  variable  added  to  form  an  augmented  basis  as  shown  in 
E0(12)  through  EQ<14).  The  initial  basis  feasible  solution 
is  x(3)*4,  x<4)=6,  and  x(5)*=S  since  these  vectors  provide 
the  basis.  EQ(1S)  states  the  equivalent  mathematical 
relationship  of  EQ(12)  through  EQ(14)  in  the  form  presented 
earlier  CEQ(5)1. 


Maximize  z  =  x<l)  +  2x <2)  +  Ox (3)  *■  Ox (4)  + 

Ox  (3) 

=  0 

<  1 1  > 

Subject  to 

x<l)  +  x  <3) 

*  4 

(12) 

x  (2)  ♦  x  (4) 

*  6 

(13) 

x(l)  4-  x  (2) 

x  (5) 

-  8 

(14) 

xb<3)*V<3)  +  xb(4)*V(4)  +  xb(5)*V(5) 

-  S 

(15) 

Now  if  each  basic  variable  is  expressed  in  terms  of  only  the 
non-basic  variables,  x<l)  and  x (2) ,  the  following  is  found: 


x  (3) 

*»  4  -  x  ( 1 ) 

(16) 

x  (4) 

*  6  -  x  (2) 

(17) 

x  (5) 

■  8  -  x  (1)  -  x  (2) 

(18) 

The  objective  function  may  then  be  expressed  in  terms  of  the 


nonbasic  variables  to  arrive  ati 


z  *  0  +  x<l>  +  2x (2)  < 19) 

At  this  point,  review  the  previous  section’s  thoughts. 
A  basic  feasible  solution  exists;  X=*  <0,  0,  4,  6,  8)  and  the 
basis  is  formed  by  n»«3  linearly  independent  vectors  CV<3>, 
V  (4) ,  V<3>3.  At  this  point,  we  would  select  a  vector  not  in 
the  basis  EV<1>  or  V<2>1  to  determine  whether  this  new 
solution  is  also  a  basic  feasible  solution.  Previously,  no 
method  has  been  discussed  to  select  the  incoming  basis 
vector.  Each  nonbasis  vector  could  have  been  selected  to 
enter;  however,  random  vector  selection  may  cause  the  value 
of  the  objective  function  to  decrease  and  move  away  from  its 
optimal  value.  The  simplex  algorithm  assists  in  this 
selection  in  that  it  guides  the  user  to  select  an  incoming 
basis  vector  which  will  increase,  or  at  least  maintain,  the 
current  objective  function  value.  Looking  at  EQ(19),  one 
will  find  that  the  current  objective  function  value  is  zero 
since  both  x(l)  and  x (2)  are  currently  nonbasic  variables. 
To  increase  the  objective  function,  either  V(l)  or  V(2)  may 


be  selected  to 

enter 

the  basis 

since  both 

have 

posi ti ve 

coefficients  in 

the 

objective 

f unct i on. 

The 

objective 

function  value. 

z* 

will  increase  as  the 

value 

of  the 

incoming  variable  increases  since  it  has  been  stated  that 
the  variables  Cx<l),  x (2) 1  must  be  nonnegative.  However ,  if 
V<2>  is  selected,  the  objective  function  value  will  increase 
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at  a  rate  or  slope  of  two  while  V<1)  would  only  increase  the 
objective  value  at  a  rate  o-f  one.  Therefore,  the  simplex 
algorithm  will  guide  the  user  to  select  as  the  entering 
basis  vector,  that  vector  which  will  cause  the  most  rapid 
increase  in  the  objective  function.  One  could  at  this  time 
perform  the  computations  of  EQ(&)  through  EQ<10)  to 
determine  the  new  basis.  These  calculations  will  not  be 
performed  at  this  time  but  will  be  shown  later  using  the 
simplex  algorithm  from  beginning  to  end  for  the  example 
problem. 

Now  that  the  logic  for  selecting  an  entering  basis 
vector  has  been  displayed,  the  theoretical  development  will 
be  reviewed.  Recall  that  the  constraints  of  the  problem 
were  given  in  EQ(5).  The  objective  function  may  be  then 
expressed  as  follows: 

xb(l)*c(l)  +  xb<2)*c<2)  +...  ♦  xb (m) *c (m)  =  z  <20> 

where 

c(i)  for  i=l,..,n  are  the  cost  coefficients  of  the 
objective  function. 

Also  recall  that  X  has  been  assumed  to  be  a  basic  feasible 
solution  and  that  any  vector  V(n)  may  be  expressed  as  a 
linear  combination  of  the  basis  vectors,  V<1)  through  V(m). 
At  this  point,  let  us  define  a  term  z(j>  as 

m 

z<j>=*  Va<i  ,  j>  *c  <i  >  j«l,....n  <21> 

1:1 

where 

aii,j)  are  the  i <th)  coefficients  of  the  j(th)  vector 
V<  j) 
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c<i>  represents  the  cost  coefficient  of  the  basic 
variable  of  row  i. 

The  eleeent  z(j)  for  vector  j  CV(j)D  could  be  enumerated  as: 

z<j)  *  a(l,j)*c(l)  +  a<2, j)  *c (2)  +...+  ate, j)*c(e)  (22) 

The  r(j)  eleeent  has  been  defined  by  Hillier  &  Lieberean 
(Ref  13:88)  as  the  net  amount  by  which  the  initial 
coefficients  in  the  objective  function  have  been  increased 
by  the  simplex  method. 

For  a  fixed  value  of  j,  if  z(j)-c(jXO,  a  feasible 
solution  exists  in  which  the  new  value  of  z  is  greater  than 
or  equal  to  the  current  value  of  z  (Ref  10:66-67).  The 
proof  of  this  was  shown  by  multiplying  ED (6)  by  some  value, 
T  in  our  example,  and  subtracting  this  from  EQ<5>.  The 
results  of  this  are  shown  in  EQ<8).  Also  as  part  of  this 
proof,  EQ(22)  was  multiplied  by  T  and  subtracted  from 
EQ<20).  The  results  are  shown  below. 

Cxb(l)  -  T*a(l,k) 3*c<l>  +  Cxb<2>  -  T*a (2, k) 3*c  (2)  +  ... 
+Cxb(m)  -  T*a(m,k) 3*c(m)  «■  T*c(k)  *  z  -  TtCz(k)  -  c(k>3  (23) 

Note  that  Ttc(k)  has  been  added  to  both  sides  of  EQ<23). 

EQ<23)  represents  the  objective  function  of  a  feasible 
solution,  assuming  the  coefficients  of  V(i)...V(m),  V(k>  are 
positive.  Also  note  that  if  a  Cz(k)-c(k)3  exists  which  is 
negative  and  assuming  that  T  is  positive,  the  right  hand 
side  of  EQ(23)  will  increase  in  value  beyond  z,  the  previous 
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objective  -function  value.  This  means  that  a  feasible 
solution  exists  which  possesses  a  higher  abjective  value  and 
that  the  simplex  procedure  requires  -further  iterations  to 
obtain  optimality.  In  order  to  increase  the  objective 
function  at  the  greatest  rate,  the  simplex  algorithm  directs 
the  user  to  select  as  the  entering  basis  vector  that  vector 
which  has  the  largest  negative  Cz(k)-c(k)3  value. 

If  a  negative  Cz(k)-c(k)3  does  not  exist  for  a  problem, 
the  current  basic  feasible  solution  is  optimal.  This 
condition  then  allows  the  simplex  algorithm  to  be  terminated 
(Ref  10:67). 

For  purposes  of  illustration,  assume  that  a  negative 
Ez  (k) — c  (k)  3  exists  and  therefore  an  entering  basis  vector 
(basic  variable)  may  be  identified.  At  this  point,  one 
would  determine  the  leaving  basis  vector  by  calculating  the 
multiplier  T  as  in  EQ(IO).  Note  that  in  EQ<8>  and  EQ(IO), 
xk(i)  is  equivalent  to  the  a(i,k)  in  EQ(21),(22),  and  (23) 
where  k  represents  the  vector  V(k>,  the  selected  entering 
basis  vector.  Also  remember  that  only  those  a(i,k)  Cor 
xk(i)l  coefficients  which  are  positive  need  to  be  checked 
since  a  basic  feasible  solution  is  being  sought.  Once  the 
value  of  T  is  determined,  one  would  solve  £Q(21>  and  (22) 
for  the  new  objective  value  and  EQ(8)  for  the  basic  variable 
values.  However,  the  a(i,k)  values  Cor  xk(i)3  of  EQ(8)  have 
not  yet  been  determined,  so  one  further  step  is  required. 

Assume  that  vector  k  CV(k)l  is  the  entering  basis 
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vector  [largest  negative  z(j)-c(j)3.  EQ(&)  shows  that  V(k> 
nay  be  expressed  as  a  linear  conbi nation  of  the  basis 
vectors  CV(1)  through  V(m)3.  Also  assume  that  V(l)  has  been 
found  to  the  leaving  basis  vector  (tT  3  min  (xb  <i  > /a(i  , k) )  3 
where  i  has  been  found  to  be  1^.  One  may  then  express  V(l> 
as  [from  EB(6)}i 


V(l)  *  C 1/a (i , k) 3tCV  <1 )  - 

where 

iSBl,2y  .  m  m  ,  1  1  ,  1  1  5  a  m  ,  fft 


m 

2 


xkaUV(i)} 


isl 


(24) 


EQ(24)  may  then  be  substituted  into  EQ(5)  to  arrive  at 
EQ(2S) . 

|xb ( 1 )  -  Cxb(l)/a(l,k>  3*a(i,k>)  *V<1)  «•  .  .  . 

*  ([xb(l)/a(l  ,k>  3^  »V(k>  +  .  .  . 

«-  (xk  <m)  -  Cxb(l)/a<l,k>3*a(m,k))  *V(m)  »S  (25) 

The  new  solution  X  is  then  found  to  include  the  basic 
variables  x(l),  x  (2)  ,  ..  x(l— 1),  xd+l),  x  (m)  and  x(k). 

The  above  process  may  be  performed,  however  the  time 
required  would  be  excessive  for  any  significant  number  of 
basis  changes.  The  simplex  method  shortens  this  process 
considerably  by  constructing  a  "tableau"  which  contains  only 
the  coefficients  of  the  objective  function  and  constraints 
in  a  form  which  greatly  simplifies  the  above  manipulations. 
Although  different  references  form  this  tableau  in  slightly 
different  manners,  all  perform  the  same  function.  The  form 


for  this  review  will  be  as  shown  in  Table  I 


TABLE  I 


Tableau  Form  O-f  Simplex  Algorithm 


z 

x  (1) 

x  (2) 

x  (m) 

x  (o-d) 

x  (n) 

RHS 

obj  fun 

1 

z  <l)~c<  j) 

z  (2)  -c  (2)  z(m)-c(m) 

z (m*i ) 

z  <n> 

0 
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To  place  the  objective  -function  in  the  proper  -fore  -for 
the  tableau,  it  must  be  in  a  maximize  z-Cc(j)x(j>3  -form  for 
the  ctjl’s  to  be  in  the  ~c<j)  ■farm.  For  our  numerical 
example,  this  Mould  correspond  to  z  -  xd)  -2x <2)  *  0.  Had 
the  problem  been  a  minimization  problem,  one  would  simply 
multiply  the  entire  objective  function  by  -1  and  this  would 
then  represent  an  equivalent  maximization  problem  (Ref 
10»78).  The  constraints  must  be  first  converted  to 
equalities  which  may  be  done  by  adding  a  "slack"  variable  to 
each  constraint  (assume  that  the  inequalities  are  less-than 
inequalities  for  the  moment).  It  should  be  noted  that  these 
slack  variables  form  the  initial  basis  of  this  problem. 
With  the  above  modifications,  the  initial  tableau  would  be 
as  shown  in  Table  II. 
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TABLE  XI 


Initial  Basic  Solution 


If  the  material  which  has  been  discussed  is  now 
applied,  one  would  first  determine  the  entering  basis  vector 
or  basic  variable.  Only  two  possibilities  exist  for 

entering  variables  and  the  simplex  method  directs  the 
selection  of  that  variable  with  the  largest  negative 
tz(j)-c<j>3.  Variable  x <2)  would  then  be  selected  for  the 
entering  variable.  Next,  one  would  determine  the  value  of 
T,  the  multiplier  which  will  force  one  of  the  present  basic 
variables  Cx (3) ,  x (4) ,  and  x <5) 3  to  exactly  zero  while 
maintaining  the  other  basic  variables  at  a  nonnegative 
level.  The  values  of  T  which  are  found  by  EQ<9>  are: 


i*l  T  *  4/0  *  undefined 
i*2  T  *  6/1  =  6  (minimum) 
i-3  T  =  B/l  »  8 


Therefore,  T  would  equal  6  in  this  iteration  and  identifies 
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the  basic  variable  of  row  2,  x <4) ,  as  ths  leaving  basic 


variable.  In  the  notation  of  this  review,  1  is  the  leaving 
basic  variable  of  row  2  while  k  is  the  entering  basic 
variable,  column  4.  Each  element  of  the  tableau  may  be 
transformed  to  that  corresponding  to  the  new  basis  using  the 
following  formulas  (Notes  x(i,j)  represents  any  element  of 
the  tableau) t 

x’(i,j)  *  x(i,j)  -Ex  (i  ,  j)  /x  <1 ,  k)  Dx  <i  ,  k>  i/^1  <26> 
x *  (i  ,  j )  -  x  (i,  j)/x(l,k>  i»l  (27) 

The  above  formulas  are  simplif ications  of  EQ(25)  and  are 
applicable  to  all  rows  and  columns  of  the  tableau  (Ref 
10:74) . 

If  one  applies  the  above,  one  will  find  a  new  tableau 
as  is  depicted  in  Table  III.  One  would  see  that  a  negative 
Cz(j)-c<j)3  exists  Ex(l)l  so  an  optimal  solution  has  not  yet 
been  obtained.  Therefore  one  would  select  x(l)  as  the 
entering  basic  variable.  Performing  this  iteration,  one 
would  find  that  shown  in  Table  IV. 

One  would  examine  this  tableau  and  find  that  no 
negative  Cz(j)-c<j)l  values  exist  which  indicates  an  optimal 
solution.  The  solution  vector  X=<2,&,2,0,0)  has  all 
nonnegative  elements  indicating  that  it  is  also  feasible. 
One  should  also  check  tor  degeneracy,  which  means  that  fewer 
than  m  elements  of  the  basic  feasible  solution  are  nonzero. 
Since  the  basis  dimension  (m-*3)  equals  the  number  of  nonzero 
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TABLE  III 

Second  Basic  Solution 
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TABLE  IV 
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variables,  the  solution  is  also  nondegenerate.  One  would 
note  that  the  same  solution  was  found  earlier  in  the  chapter 
by  the  graphical  method. 

If  the  graph  is  inspected,  it  will  be  found  that  we 
initially  started  at  the  extreme  point  labeled  E 
tx ( l )»x <2)=03  in  the  first  tableau.  Next,  x (2)  entered  the 
basis  and  we  moved  to  point  A  Cx<l>=0,  x(2)=*6D.  The  final 
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tableau  corresponds  to  point  B  Cx<l>=2,  x<2>*=63.  Had  we  not 
used  the  selection  rule  of  the  largest  negative  Cz<j)-c<j>3 
for  the  entering  basis  vector,  we  could  have  selected  x<l) 
as  the  first  entering  basis  vector.  This  pivot  would  have 
moved  us  from  point  E  to  point  D,  and  then  next  to  point  C, 
and  finally  to  point  B.  Although  the  simplex  selection  rule 
does  not  always  cause  fewer  pivots  to  be  performed,  this  is 
an  example  of  it  doing  so. 

One  area  which  has  been  passed  over  is  that  of 
unboundedness.  Problems  may  arise  which  have  no  optimal 
solution  since  a  basic  variable  or  variables  may  be 
increased  indefinitely  without  forcing  another  vector  out  of 
the  basis.  This  occurs  when  a  negative  Cz<k)-c<k>3  exists 

but  all  a(i,kXO  for  i  =  1 . .  This  means  that  T  may  be 

made  arbitrarily  large,  the  basis  is  m+1  and  the  objective 
function  increases  without  bound.  If  EQ<23)  is  examined 
with  T  being  large  and  a(i,k><0,  it  can  be  seen  that  this 
occurance  is  possible.  In  a  practical  sense,  this  means 
that  the  model  has  been  formulated  incorrectly  and  when  this 
situation  occurs,  the  simplex  algorithm  is  terminated. 

The  discussion  up  to  this  point  has  assumed  an  initial 
basis  was  present  or  the  problem  was  stated  as  AX<B  where 
slack  variables  will  form  the  basis.  The  initial  problem 
may  be  stated  as  AX=B  with  an  initial  basis  not  readily 
identifiable.  A  technique  which  is  used  in  this  case  is 
called  an  "artificial  basis"  technique.  Each  constraint  has 


31 


a  uni qua  basis  variable  added  and  alse  each  variable  is 
assigned  an  unspecified  large  negative  number  (often  called 
"M"  >  as  a  cost  coefficient.  It  has  been  proven  that  if  a 
feasible  solution  exists  to  the  original  problem,  one  Mill 
also  exist  for  the  augmented  problem.  Also  if  a  feasible 
solution  does  not  exist  for  the  original  problem,  the 
optimal  solution  to  the  augmented  problem  will  contain  an 
artificial  variable  at  a  positive  level  (Ref  10t8i). 

This  technique,  although  powerful ,  may  increase  the 
number  of  iterations  required  to  obtain  optimality.  The 
artificial  variables  must  be  driven  from  the  basis  prior  to 
determining  optimality  and  therfore  should  be  used  only  when 
required.  If  a  basis  vector  exists  in  the  problem  as  given, 
use  this  as  an  initial  basis  vector  to  minimize  the 
iterations  required. 

The  simplex  algorithm  is  applied  as  discussed 
previously  to  the  artifical  basis  with  the  exception  of 
selecting  the  entering  variable.  Since  the  Cz(j)-c(j>3 
values  may  now  contain  a  unspecified  large  value  “11",  the 
selection  of  the  largest  negative  Cz(j)-c(j>3  must  consider 
two  elements.  All  Cz(j)-c(j)3  values  which  contain  a  "M" 
must  be  examined  and  the  selection  di f f erenti at or  is  the 
numeric  element.  That  Cz(j)-c<j>3  with  an  "h"  value  and  the 
largest  negative  Cz(j)-c(j)3  should  be  selected  as  the 
entering  basic  variable.  Once  the  “M"  values  has  been 
removed  from  the  objective  row  vf  the  tableau,  the  algorithm 
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procNdi  as  before. 

Sensitivity  analysis  is  based  on  the  relationship 
between  the  coefficients  of  the  original  columns  of  the 
linear  programming  model  and  the  columns  representing  the 
slack  and  artificial  variables. 

Considering  a  problem  with  K  constraints  and  V 
variables,  the  final  K  columns  will  initially  form  an 
identity  matrix.  As  the  simplex  algorithm  is  performed,  the 
identity  matrix  undergoes  a  transformation.  This  matrix  is, 
upon  completion  of  the  algorithm,  a  record  of  all  operations 
performed  on  the  original  equation.  It  is  possible  to 
determine  from  this  record  the  change  to  any  element  of  the 
final  taoleau  which  results  from  one  or  more  changes  to  the 
original  tableau. 

To  illustrate  these  changes,  consider  an  original 
problem  with  three  variables  and  four  constraints.  If  a 
change  was  made  to  the  original  <3, 2)  element,  the  changes 
to  the  final  tableau  could  be  found  by  pre— multiplying  the 
matrix  with  the  single  change  by  the  transformed  identity 
matrix  which  is  commonly  called  B-inverse. 

As  can  be  seen  in  Figure  2,  a  change  in  the  third  row, 
second  column  will  produce  changes  in  the  entire  second 
column  of  the  final  tableau.  Also,  note  that  only  the 
values  in  the  third  column  of  B-inverse  were  pertinent. 
This  is  because  the  third  column  of  the  identity  matrix  or 
B-inverse  is  associated  with  the  third  row  of  the  original 
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Figure  2.  Effect  of  Single  Change  to  the  Original  Tableau 


tableau.  Although  not  shown  in  the  illustration,  the 
coefficient  of  the  objective  function  above  the  third  coluan 
of  the  8-inverse  matrix,  when  multiplied  by  the  change  to 
the  (3,2)  element,  will  give  the  change  to  the  coefficient 
in  the  objective  function  above  the  second  column  of  the 
original  matrix. 

When  the  results  of  the  changes  have  beam  determined 
and  added  to  the  respective  elements  of  the  final  tableau, 
further  manipulations  may  be  necessary.  If  a  change 
occurred  to  a  column  which  was  in  the  basis  of  the  final 
tableau,  that  column  will  have  to  be  returned  to  its  final 
tableau  form.  This  is  done  byi  first,  dividing  the  entire 
row  which  had  a  value  of  one  in  the  column  under 
investigation  by  the  new  value  to  reestablish  the  value  of 
one,  and  second,  adding  multiples  of  that  row  to  each  of  the 
other  rows  and  the  objective  function  to  return  all  other 


values  in  the  column  to  zero.  If  the  value  of  any 
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right-hand  side  or  objective  -function  coefficient  has  become 
negative,  the  tableau  must  be  resolved  using  the  LP 
algorithm. 

Determining  the  range  limits  of  the  el  aments  of  the 
original  tableau  is  merely  a  variation  of  the  method 
previously  described.  Rather  than  solving  for  the  changes 
which  result  from  a  change  to  an  original  element,  the 
algorithm  individually  investigates  each  element  to 
determine  the  smallest  positive  and  negative  changes  which 
would  cause  either  a  multiple  optimal  (an  objective  function 
coefficient  not  in  the  basis  goes  to  zero)  or  a  degenerate 
(right-hand  side  goes  to  zero)  condition. 
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Figure  3.  Column,  Constraint  Relationship 

As  shown  in  Figure  3,  a  change  in  the  (3,2)  element  may 
cause  changes  to  all  elements  in  the  second  column.  This 
column  must  now  be  returned  to  the  final  tableau  form 
(assume  a  1  was  in  element  (1,2)  and  the  other  elements  were 
zero).  The  first  constraint  would  now  be  divided  by  1-*AW 
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and  Multiples  of  the  first  row  would  be  added  to  the 
objective  function  and  to  the  other  rows  to  return  their 
values  in  the  second  coluen  to  zero.  To  be  specific,  -AX 
tines  the  first  row  would  be  added  to  row  two,  -AC  tines  the 
first  row  would  be  added  to  the  objective  function,  etc. 
Each  of  these  cases  can  be  set  up  as  an  equation  to 
determine  what  value  of  A  will  cause  a  zero  value  to  be 
reached  in  a  non-basic  column  of  the  objective  function  or 
in  the  right-hand  side.  Each  row  and  each  non-basic  column 
(except  artificial  variables  which  are  excluded)  will 
produce  a  A.  From  these  A’s,  the  smallest  positive  and  the 
smallest  (absolute)  negative  represent  the  bounds  on  the 
change  to  the  element. 

The  specific  equation  used  to  determine  the  maximum 
positive  change  iss 

A=  MIN  CHIN  POS(-C(L)/(A(ROW,BCOL)*C(L)-A(ROW,L>* 
C(BCOL)),  MIN  POS  (— B (M) / (B (M) *A (ROW, BCOL) — B(ROW) * 

A (M, BCOL) > 1  (28) 

where 


C  *  objective  function  coefficient  in  the  final 
tableau 

L  =*  1 , 2, . . . .  total  variables - excluding  artificials 

and  the  column  with  the  delta 

ROW  *  the  row  which  represents  the  basis  of  the  column 
under  investigation  (has  a  value  of  1  in  the 
final  tableau) 


A  *  the  (Iwiwnt  coefficient  in  the  final  tabluu 

BCOL  -  the  column  in  B-inverse  associated  with  the 

change  being  investigated  <The  third  column  of  B 
inverse  if  the  change  was  to  the  (3,2)  element.) 

B  »  right-hand-side  value  in  the  final  tableau 

N  “  1,2, ...K  -  all  rows  except  the  row  in  the 

basis  for  the  column  being  investigated 

The  negative  delta  is  similar  except  the  largest 

negative  (smallest  absolute)  values  are  determined. 


To  illustrate: 
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Figure  4.  Change  to  the  Objective  Function  Coefficient 

For  L  =*  3  and  X2  is  in  the  basis  in  ROW  1 

4(3,2)  =  -C<6>/C(A)*A(1,3>-C(3>*A(1,A)  (29) 

4(3,2)  -  -C/ (C*D-C3*W>  (30) 

The  value  of  4(3,2)  found  in  epuation  30  will  cause  the 
objective  function  coefficient  C3  (Figure  4)  to  be  driven  to 
zmro.  All  other  columns  which  are  not  in  the  basis  must 
also  be  checked  to  find  the  minimum  changes.  Basic  columns 
do  not  need  to  be  checked  since  they  have  a  zero  in  the 
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critical  element.  Therefore,  no  multiple  of  the  row  could 
change  any  other  row.  If  the  element  which  is  being 
investigated  for  range  limits  is  not  in  a  basic  column,  the 
only  value  to  be  determined  is  the  relationship  between  the 
objective  function  coefficients  of  the  desired  column  and  of 
the  column  associated  with  the  constraint.  The  maximum 
range  limit  is  determined  by  A«*  -C <L) /C(BCOL) . 

The  changes  for  the  right-hand  side  are  checked  in  a 
similar  manner. 
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ROW  »  1,  M  =  2 


A  a  — B  (2) / <B <2> *A (1,6) — B <1>*A<2,6)  <31> 

A  *  -B2/ <B2*W-B1*X)  <32> 


Again,  each  row  <M«2,3,4>  will  produce  a  delta.  All  of 
the  deltas  (positive  and  negative)  are  searched  to  find  the 
delta  which  first  drives  an  objective  function  coefficient 


or  a  right-hand  si  da  to  zero.  This  Mill  be  tha  ranga  -for 
tha  element  under  consideration. 

Sensitivity  analysis  is  subject  to  ill-conditioning 
which  would  not  be  present  if  the  modified  problem  was 
solved  from  the  initial  tableau.  This  condition  occurs  when 
one  of  the  two  constraints  (in  a  two-dimensional  problem) 
which  forms  the  cornet — point  solution  of  a  final  tableau  is 
modified  to  cause  the  two  constraints  to  be  parallel.  The 
current  corner  point  is  now  at  infinity.  This  condition 
would  never  occur  using  the  full  algorithm  since  one  of 
these  constraints  would  be  outside  the  convex  boundary  and, 
therefore,  not  involved  in  any  basic  solution. 

Figure  6  shows  a  two-dimensional  problem.  The  optimal 
solution  is  shown  in  Table  V.  A  critical  value  to  cause 
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Figure  6.  A  Two-Dimensional  Problem 
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TABLE  V 


A  Final  Tableau 
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ill-conditioning  is  a  change  in  the  (1,1)  element  o( 


This  change  is  shown  in  the  revised  problem  in  Figure  7.  As 
can  be  seen,  two  constraints  are  now  parallel,  and  one  of 
them  is  not  within  the  convex  boundary.  This  new  problee 
can  be  easily  solved  by  the  ■full  algorithm  (Table  VI)  but 
requires  division  by  zero  when  sensitivity  analysis  is  used 
to  find  a  new  solution  from  the  original  optimal  solution 
(Table  VII). 

Ill-conditioned  points  exist  in  every  tableau.  A  critical 
value  may  exist  for  each  element  in  an  original  column  which 
has  its  variable  in  the  basic  solution.  Empirical  results 
indicate  that  these  critical  values  are  usually  outside  of 
the  range  limits  for  individual  elements.  The  only  known 
exception  is  the  unique  case  where  the  change  makes  the 
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Figure  7.  Corner  Point  at  Infinity 

TABLE  VI 

Modified  Problem,  Final  Tableau 
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TABLE  VII 
Division  By  Z«ro 
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constraint  parallel  and  identical.  This  new  problem  would 

be  ill-conditioned  -for  all  solutions  since  the  constraints 
would  no  longer  be  independent. 

Ill -conditioning  in  sensitivity  analysis  is  an 
interesting  phenomena,  but  its  effects  are  not  major.  The 
i 1 1— condi tioning  can  be  avoided  if  the  changes  are  varied  a 
small  amount.  The  full  simplex  algorithm  can  be  used  if  the 
exact  changes  must  be  investigated. 

The  purpose  of  this  chapter  was  to  provide  a  brief 
theoretical  review  of  linear  programming  in  conjunction  with 
the  simplex  algorithm  methodology  and  postoptimal 
sensitivity  analysis  as  they  were  applied  in  this  software 
package.  Those  interested  in  a  more  thorough  discussion  of 
the  simplex  algorithm  are  directed  to  Gass  (Ref  10)  and  also 
Garfinkal  Sc  Nemhauser  (Ref  9)  .  The  area  of  postoptimal 
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sensitivity  analysis  is  covered  in  depth  by  Sal  (Ref  8)  with 
again  a  practical  view  given  by  Levin  I <  Kirkpatrick  (Ref 
lb).  Many  other  important  aspects  of  linear  programming, 
such  as  duality  theory,  have  not  been  presented  but  are 
present  in  numerous  refereneces.  A  quite  thorough  and 
practical  presentation  of  duality  theory  is  given  by  Levin  fc 
Kirkpatrick  (Ref  16)  while  a  brief,  but  comprehensi ve 
theoretical  view  is  given  by  Garfinkel  fe  Nemhauser  (Ref  9). 

Although  many  areas  were  not  discussed,  hopefully  the 
previous  discussion  has  implanted  or  reinforced  the 
mathematical  background  of  the  simplex  algorithm.  Also,  the 
simplex  algorithm  has  been  intended  to  be  shown  not  as  an 
abstract  technique  which  is  blindly  applied,  but  a  valuable 
tool  to  assist  analysts  and  managers  in  solving  real  life 
problems. 
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Ill  Design  Consi der at ions 


The  developmental  process  involved  in  an  effort  to 
produce  a  well-designed  product  requires  careful 
consideration  of  all  aspects  which  may  influence  the 
outcome.  The  objective  of  this  section  is  to  present  the 
major  considerations  of  the  software  design  phase.  Chapter 
IV  will  then  discuss  the  method  of  implementation  which  has 
evolved  from  this  analysis. 

User  Considerations 

The  user  must  feel  that  the  software  is  beneficial  in 
terms  of  the  time  and  effort  required  to  use  it  in  problem 
solution  and  analysis.  Therefore,  several  important  factors 
must  be  considered  with  the  user  in  mind.  One  such 
consideration  is  that  the  program  should  be  developed  in  a 
logical  sequence  from  model  formulation  to  problem  solution 
to  analysis  of  results.  The  user  should  be  carefully  guided 
through  this  sequence,  being  allowed  to  correct  either 
incorrect  entries  or  incorrect  problem  formulation  without 
resorting  to  complete  model  ref ormulation  and  input. 
Furthermore,  the  input  of  an  option  selection  or  the  input 
of  a  model  should  occur  in  a  sequence  which  coincides  with 
the  logical  progression  of  problem  solution  in  order  to 
lessen  the  anticipation  and  doubts  of  infrequent  users. 

Another  important  area  is  the  ability  of  the  user  to 
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quickly  and  accurately  locate  the  results  of  each  step  in 
the  sequence.  The  prompts  to  the  user  -for  data  or  response 
input  should  provide  meaningful,  concise  guidance  to  the 
user.  In  some  instances,  graphically  supplemented  output 
may  be  desirable.  This  may  occur  when  one  value  being 
studied  is  valid  for  a  range  of  values  for  another  variable. 
In  this  manner,  the  user  is  able  to  visually  determine  the 
range,  and  to  a  degree,  the  sensitivity  of  one  variables 
relationship  to  another. 

Although  linear  programming  and  the  simplex  algorithm 
are  capable  of  producing  the  desired  solution,  alternative 
methods  of  applying  the  simplex  algorithm  are  available 
which  may  allow  more  efficient  and  timely  solutions  to  an  LP 
model.  It  may  be  desirable  to  provide  the  user  with  the 
capability  and  option  to  solve  the  problem  by  one  of  these 
al ternati ves.  Again,  the  presentation  of  these  options 
should  be  performed  as  clearly  and  concisely  as  possible. 

Further  software  enhancements  which  may  be  user 
desirable  include  minimal  programming  and  operating  system 
interface.  The  user  should  not  be  required  to  alter  program 
source  code  to  use  the  software;  however,  the  programs 
should  be  designed  and  presented  in  a  manner  which  will  not 
preclude  future  enhancements  or  modifications.  These 
considerations  suggest  that  the  source  code  be  modular ly 
designed,  developed,  and  documented  to  reduce  the  effort 
required  to  locate  the  code  of  a  specific  function  and  then 
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interpret  the  source  code. 

One  additional  area  of  concern  is  program  control. 
Since  the  user  may  be  inexperienced  in  either  programming  or 
use  of  the  operating  system,  the  program  should  require 
minimal  and  infrequent  guidance.  This  consideration  leads 
to  a  menu— driven  program  which  displays  available  program 
options  enroute  to  problem  solution  and  analysis.  Upon 
input  of  a  desired  option  by  the  user,  the  program  ideally 
will  perform  all  interface  with  the  operating  system  to  pass 
control  to  the  desired  program,  unit,  or  subroutine. 
Compromises  to  this  ideal  environment  may  be  necessary.  If 
so,  precise  instructions  to  the  user  on  the  required 
operating  interface  commands  needed  to  progress  through  the 
desired  sequence  should  be  appropriately  displayed  to 
minimize  the  required  familiarity  with  the  operating  system. 

Hardware  Considerations 

Microcomputers  offer  many  advantages  not  available  with 
large,  stationary  computer  systems.  These  advantages 
include  a  substantial  decrease  in  acquisition  cost  plus 
virtual  elimination  of  support  requirements.  Also,  the 
transportabi 1 i ty  of  the  "desk  top"  computers  is  ever 
increasing  due  to  recent  advances  and  design  considerations. 
In  conjunction  with  these  advantages,  one  would  expect  and 
soon  finds  areas  of  diminished  capabilities  compared  to  a 
mainframe  system.  Two  primary  areas  are  the  decreased 
memory  capacities  and  reduced  computational  rates  of  the 
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microcomputers.  This  exchange  of  decreased 
increased  transportability  -for  decreased  capabilities  does 
impair  the  size  and  speed  of  developed  software;  therefore, 
one  must  consider  possible  avenues  which  will  counter  these 
decreased  capabilities. 

In  determining  the  target  system  for  software 
development,  one  should  consider  the  availability  of  the 
various  microcomputers  in  conjunction  with  the  capabilities 
of  each.  Software  which  is  developed  on  a  system  with 
limited  availability,  to  the  target  users  will  not  be  used 
extensively.  Even  if  a  readily  available  system  is  used  for 
software  development,  it  is  necessary  to  consider  the 
modifications  and  peripherals  of  the  target  system.  If 
these  modifications  or  peripherals  are  unique  to  the 
development  system,  it  limits  the  use  of  the  software. 

Although  the  available  microcomputers  vary  extensively 
in  their  memory  capacities  and  peripherals,  a  range  from  48K 
to  128K  bytes  random  access  memory  (RAM)  is  not  unusual  (48K 
is  approximately  equal  to  48,000  characters) .  Peripherals, 
such  as  printers,  communication  links  (modems),  and  disk 
drives  are  quite  common,  if  not  necessary,  among  those  who 
use  microcomputers.  The  dependency  of  the  developed 

software  on  these  peripherals  must  be  strictly  specified,  or 
options  must  be  provided  which  will  allow  the  user  to 
designate  only  those  peripherals  possessed.  In  this  way, 
many  potential  users  could  gain  access  to  the  software 
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without  an  added  hardware  requirement. 

Language  Conai derations 

A  priaary  factor  in  the  selection  of  a  language  for 
this  research  was  the  portability  of  the  language  f roe  one 
microcoeputer  systee  to  another.  BASIC  was  once  the  only 
high-level  language  generally  available  for  use  with 
eicrocoeputers.  Presently,  microcoeputer  users  have  access 
to  other  high  level  languages  such  as  Pascal,  FORTRAN,  and 
APL.  The  three  languages  felt  to  be  most  accessible  to 
users  were  BASIC,  Pascal,  and  FORTRAN  and  were  considered 
for  implementation  in  this  research. 

BASIC.  As  previously  noted,  that  the  portability  of 
the  language  is  a  primary  consideration.  'From  this 
viewpoint,  BASIC  dees  not  gain  much  support  since  each 
microcomputer  system  has  modified  the  BASIC  language  in 
order  to  coincide  with  the  needs  of  that  particular  system. 
This  has  caused  many  versions  of  the  BASIC  language  and 
results  in  extremely  limited  portability. 

Execution  time  is  also  dependent  on  the  language 
selection.  A  program  written  in  BASIC  must  be  interpreted 
line  by  line  to  machine  language  each  time  the  program  is 
executed.  This  process  causes  execution  time  to  be 
considerably  slower  than  for  other  languages  which  are  first 
compiled  and  then  executed.  BASIC  programs  may  be  compiled; 
however,  the  compilers  are  machine  dependent  due  to  language 
and  hardware  differences  between  systems.  This  compiled 
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code  is  then  unique  to  the  systee  end  -further  deters 
portability. 

Pascal .  Pascal,  the  most  recently  developed  language 
of  those  considered,  emerged  in  the  early  I970*s  and  has 
since  proven  to  be  a  powerful,  high-level  language.  A 
significant  factor  in  the  growth  of  this  language  was  the 
work  of  Kenneth  Bowles  who  directed  the  development  of  UCSD 
Pascal  at  the  University  of  California  at  San  Diego  (Ref 
14:118).  UCSD  Pascal,  originally  formulated  as  a  teaching 
tool,  has  allowed  for  larger  programs  to  be  implemented  on 
microcomputers  and  has  lead  to  an  increased  portability  of 
high-level  languages  between  systems. 

The  enhancements  to  Pascal  and  FORTRAN  are  the  result 
of  the  "P-code"  and  "P-machine"  of  the  UCSD  Pascal  system. 
The  source  code,  either  Pascal  or  FORTRAN,  is  first  compiled 
into  P-code  and  stored  as  the  object  code  for  the  P-machine. 
The  P— machine,  which  interprets  the  P-code  upon  execution, 
emulates  instructions  to  the  machine-specific  central 
processing  unit.  Only  the  emulator  of  the  UCSD  Pascal 
system  must  be  revised  to  coincide  with  each  system  to  allow 
portability,  and  this  may  be  performed  in  a  relatively  short 
time.  This  one-time  revision  then  allows  compiled  Pascal  or 
FORTRAN  programs  to  be  portable  between  microcomputers. 
Another  advantage  of  the  P-code  is  that  it  requires 
considerably  less  memory  than  the  equivalent  object  code  or 
machine  language.  This  allows  larger  programs  to  be 


resident  in  memory  at  any  one  time.  Also,  UCSO  Pascal  has 
implemented  an  overlay  capability  which  loads  P-code  into 
memory  as  needed  and  discards  this  code  upon  completion. 
This  capability  allows  the  user  to  specify,  to  a  great 
extent,  the  amount  of  code  in  memory  during  the  various 
phases  of  program  execution  (Ref  14tll4>.  The  advantages  of 
the  UCSD  Pascal  system  are  applicable  to  both  Pascal  and 
FORTRAN  programs;  therefore,  little  preference  is  gained  for 
either  high-level  language. 

A  disadavantage  of  Pascal  is  that  it  does  not  possess 
extensive  output  formatting  capabilities  which  are  often 
found  in  other  languages.  Although  not  an  insurmountable 
problem,  it  is  a  factor  when  carefully  formatted  output  is 
desired. 

FORTRAN.  FORTRAN,  the  most  widely  used  language  within 
the  scientific  programming  community,  was  developed  in  the 
early  1930’s  by  IBM  (Ref  3s 1).  In  the  succeeding  years,  the 
FORTRAN  variations  have  increased,  leading  to  a  need  for 
standardization  of  such  an  intensely-used  language.  Two 
attempts  have  been  made,  with  the  most  recent  (1970—1977) 
specifying  a  full  language  and  subset  language.  Attempts  to 
standardize  the  language  have  been  of  assistance  to 
programmers,  however,  discrepancies  between  implementations 
still  exist  and  are  a  major  downfall  of  the  language. 

As  previously  discussed,  the  portability  of  FORTRAN  has 
been  greatly  aided  by  the  development  of  the  UCSD  Pascal 
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operating  tyttm.  Also,  due  to  FORTRAN'S  evolution  process, 
formatting  features  are  available  which  are  not  present  in 
BASIC  and  Pascal.  A  consideration  which  has  not  been 
mentioned  is  that  although  increased  formatting  capabilities 
do  exist,  output  time  is  increased  when  this  option  is 
utilized.  Dependent  upon  the  type  and  amount  of  output 
desired,  this  may  become  a  significant  factor  in  program 
execution  time. 

The  above  sections  have  discussed  those  features  which 
are  desired  in  the  software  and  also  the  availability  of 
hardware  and  languages  with  respect  to  microcomputers.  The 
next  chapter  will  discuss  the  selection  of  a  particular 
microcomputer  system  and  language.  Also  discussed  are  the 
methods  in  which  those  desired  features  were  incorporated 
into  the  software  within  the  constraints  of  the  hardware  and 
language  selections. 
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IV  I  mol  BMntati  on 

objective  o-f  developing  an 
microcomputer — supported  linear  programming  software  package 
combined  with  the  design  considerations  discussed  in  the 
previous  chapter  have  formed  the  foundation  for  this 
research;  Each  area  discussed  in  Chapter  III  was  felt  to  be 
of  significance;  however,  each  must  be  reviewed  in  light  of 
the  capabilities,  advantages,  and  disadvantages  of 
microcomputers  as  well  as  the  desires  and  abilities  of  the 
intended  users.  Due  to  the  requirements  placed  upon  the 
design  by  each  of  these  factors,  conflicts  may  arise  which 
will  allow  less  than  full  incorporation  of  one  or  more  of 
those  desired  areas. 

The  purpose  of  this  chapter  is  to  present  the  method  of 
implementation  used  in  the  software  development  of  this 
research.  First,  the  method  of  incorporation  of  those 
significant  areas  discussed  in  Chapter  III  will  be  discussed 
as  they  apply  to  the  software  package  in  general.  Next,  the 
method  and  underlying  logic  of  implementation  will  be 
reviewed  as  it  applies  to  each  module  of  the  software 
package.  Then,  specific  problems  or  special  areas  of 
consideration  will  be  discussed.  Chapter  V  will  present 
findings  and  recommendations  which  are  felt  to  be  noteworthy 
to  future  efforts  in  similiar  research. 
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Hardware 


On*  of  the  -first  major  decisions  of  the  implementation 
phase  concerned  the  selection  of  the  microcomputer  system  to 
be  used  in  the  development.  It  mas  felt  that  the  system 
should  be  a  commonly  available  system  without  extensive  or 
unique  modifi cations  or  peripherals.  Also,  the  memory 
capacity  of  the  chosen  system  should  be  comparable  to  those 
most  likely  accessible  by  the  intended  users. 

In  light  of  the  above  considerations  in  conjunction 
with  the  availability  of  such  a  system  to  the  developers,  an 
Apple  II -pi us  microcomputer  was  selected  as  the 
developmental  system.  The  Apple  II-plus,  although  not  the 
most  advanced  microcomputer  on  the  market,  has  become  one  of 
the  largest  selling  systems  and  is  presently  selling 
approximately  20,000  microcomputers  per  month  (Ref  18»19). 
Other  favorable  features  of  the  Apple  II  include 
high-resolution  graphics,  memory  expansion  capabilities, 
readily  available  peripherals,  and  the  ability  to  support 
the  Pascal  and  FORTRAN  languages. 

The  system  which  was  used  for  the  implementation  of 
this  software  package  is  shown  in  Figure  2.  The  system,  as 
shown,  was  felt  to  be  representative  in  capabilities  of 
those  microcomputers  available  to  the  intended  users. 


1.  Apple  II-plus  microcomputer  with  48K  RAM 

2.  Two  disk  drives  (5-1/4  inch) 

3.  16K  memory  expansion  card  (language  card) 

4.  Printer 

5.  Video  display  (monitor  or  TV) 


Figure  8.  Developmental  Hardware  Con-figuration 

Language 

The  three  languages  which  were  examined  for 
implementation  in  this  research  were  BASIC,  Pascal,  and 
FORTRAN.  FORTRAN,  even  though  it  does  have  limitations  and 
drawbacks,  was  felt  to  be  the  most  appropriate  language  as 
supported  by  the  Apple  II  microcomputer . 

The  BASIC  language,  either  Applesoft  or  its  machine 
specific  counterparts,  was  found  not  to  be  portable  to  any 
extent,  thereby  violating  one  of  the  primary  language 
selection  criteria.  Furthermore,  as  an  interpreted 
language,  the  execution  times  were  known  to  be  in  excess  of 
compiled  languages  such  as  Pascal  and  FORTRAN. 

The  selection  between  Pascal  and  FORTRAN  was  much  more 
subjective  than  the  elimination  of  the  BASIC  language.  In 
the  past,  Pascal  had  offered  a  greater  degree  of 
portability.  However,  the  recent  development  and  use  of  the 
UCSD  Pascal  Software  System  (Ref  14)  has  allowed  increased 
portability  of  both  FORTRAN  and  Pascal.  This  system  allows 
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both  Pascal  and  FORTRAN  to  run  on  most  microcomputers 
thereby  virtually  eliminating  portability  problems  due  to 
hardware  configurations. 

A  -frequently  discussed  obstacle  to  FORTRAN  is  its  lack 
of  standardization  among  the  various  implementations. 
Although  the  magnitude  of  this  problem  has  been  reduced,  it 
still  exists  for  large  computer  systems  as  well  as 
microcomputers.  It  was  found  that  even  though  a  standard 
Pascal  language  exists,  the  microcomputer  implementations  of 
this  language  often  do  not  coincide  fully  with  the  standard, 
allowing  for  portability  problems  similar  to  FORTRAN. 

Although  Pascal  has  come  to  be  known  as  a  powerful 
high-level  language,  it  is  relatively  new  and  not  as 
intensely  used  by  the  scientific  community.  It  was  felt, 
even  at  the  possible  expense  of  perpetuating  an  outdated 
language,  that  FORTRAN  would  be  an  acceptable  language  by 
the  scientific  community  due  to  its  familiarity.  Also,  the 
wel 1 — devel oped  intrinsic  output  formatting  capabilities  of 
FORTRAN,  which  were  extensively  used  in  the  research,  would 
allow  for  a  more  rapid  implementation  than  those  available 
with  Pascal. 

User  Interface 

The  requirement  for  user  interaction  while  employing  a 
mi crocomputer  is  inevitable;  however,  the  degree  of  such 
interaction  is  largely  programmer  controllable.  The 
previous  selection  of  hardware  and  language  has  also 
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dvlincatad  the  magnitude  and  -frequency  o-f  user  interaction 
to  some  extent,  dependent  upon  program  size  and  complexity. 
It  has  been  noted  that  the  targeted  users  should  not  be 
required  to  possess  extensive  programming'  or  operating 
system  knowledge.  This  -further  requires  that  any  inter-face 
be  proceeded  by  well  structured,  concise  guidance  to  the 
inexperienced  user.  This  user  interface  requires  user  input 
of  responses  or  data  which  may  be  entered  incorrectly 
causing  an  execution  error.  To  preclude  possible  operating 
system  errors  due  to  erroneous  input,  a  system  of  screening 
user  input  has  been  constructed  to  prevent  such  losses. 
This  section  describes  the  manner  in  which  the  interface 
system  has  been  designed  within  the  confines  of  the  hardware 
and  language  parameters  as  well  as  the  design  considerations 
outlined  in  Chapter  Ill. 

Apple  FORTRAN,  the  FORTRAN  version  implemented  on  the 
Apple  II,  allows  the  use  of  a  “turnkey"  system  which 
automatically  begins  running  a  programmer-designated  program 
following  prescribed  startup  procedures  (Ref  1:9)  (See 
Appendix  A  for  startup  procedures) .  A  turnkey  system 
requires  minimal  operating  system  interface  with  the  user 
for  a  program  to  initially  gain  control  and  begin  to  guide 
the  user.  Such  a  system  has  been  included  to  lessen  the 
interface  initially  required  for  software  use.  Therefore, 
upon  startup,  the  first  program  of  the  package.  Nodule  1,  is 
automatically  executed. 


The  package  consists  o-f  -four  separate  program  due  to 
the  physical  size  of  the  LP  package  and  memory  capabilities 
of  the  selected  hardware  system.  This  factor,  coupled  with 
the  inability  to  "chain"  programs  in  Apple  FORTRAN  (in 
chaining,  one  program  may  cause  the  execution  of  another 
program  without  user  intervention) ,  has  forced  the  design  to 
include,  to  a  degree,  user  interface  with  the  operating 
system.  This  interface,  which  occurs  when  the  user  requires 
a  different  program  to  continue  the  solution  process,  has 
been  designed  such  that  the  user  will  select  from  a  menu  the 
course  of  action  desired.  The  program  which  is  currently  in 
control  will  then  terminate  and  display  specific 
instructions  to  the  user.  These  instructions  will  enable 
the  user  to  execute  the  desired  program  of  the  package. 

The  previous  discussion  noted  that  the  user  would  be 
presented  a  list  of  alternatives.  The  user  would  then 
select  one,  after  which  specific  operating  systems  commands 
would  be  presented.  This  method  of  menu  display  and  user 
selection  input  may  also  be  applied  wxthin  a  specific 
program  to  cause  execution  of  a  particular  subroutine  or  a 
sequence  of  code.  This  method,  often  designated  as 
"menu-driven",  requires  minimal  user  input  to  cause  the 
desired  actions.  This  method  has  been  implemented,  where 
appropriate,  in  this  software  package.  User  inputs  are 
normally  limited  to  either  numeric  input  (Options  1,  2,  or 
3),  character  input  (P  for  printer,  S  for  screen),  or  Yes/No 


inputs  (Y  for  YES,  N  -for  NO).  User  inputs  are  screened  to 
prevent  undesired  prograe  termination. 

The  high-level  languages  such  as  FORTRAN  do  not  support 
intrinsic  input  error  checks  which  prevent  premature  program 
termination  and  data  loss  when  user  inputs  are  of  an 
improper  type  or  range.  Therefore,  to  assist  in  prevention 
of  such  an  event,  all  user  inputs  except  problem, 
constraint,  and  variable  names  are  first  screened  to  insure 
that  they  will  be  acceptable  to  the  program.  All  user 
inputs  are  first  placed  in  character  strings  which  allow  any 
type  of  numeric  or  character  input.  Next,  depending  on 
whether  the  input  is  a  character  or  a  numeric 
representation,  these  inputs  are  inspected  character  by 
character . 

Character  inputs,  such  as  an  option  selection  involving 
options  P,  S,  or  B  or  a  Yes/No  response,  are  checked  to 
insure  that  one  of  the  possible  responses  for  that 
particular  input  has  been  entered.  If  so,  the  option 
represented  by  the  user  input  is  performed.  However,  if  the 
input  does  not  coincide  with  the  possible  alternatives,  a 
message  indicating  an  invalid  input  is  displayed  and  the 
user  is  directed  to  reenter  the  input.  This  process  is 
repeated  indefinitely  for  any  required  user  input. 

Numeric  inputs  have  been  separated  into  real  and 
integer  numbers.  Inputs  which  require  integers  are 
inspected  character  by  character  to  insure  that  all 
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allowable  range  for  the  specific  response.  If  a  non-numeric 
is  found  or  the  range  is  violated,  the  user  is  informed  of 
an  invalid  input  and  directed  to  reenter  the  number.  Real 
numbers  are  treated  similiarly  to  integers  except  that  a 
decimal  point  has  been  included  in  the  set  of  valid  entries. 
Also,  range  screening  is  not  performed  on  real  input.  It 
should  be  noted  that  real  numbers  may  be  input  as  integers 
(i.e.  if  1  is  entered,  it  will  be  internally  represented  by 
1.0)  and  that  commas  (i.e.  10,000)  will  not  be  accepted  in 

real  number  inputs.  Also,  a  value  of  zero  may  be  entered  by 
simply  pressing  RETURN  without  numeric  input. 

These  steps  allow  the  user  to  enter  an  invalid  response 
and  recover  without  data  loss;  however,  an  undesired  input 
which  is  valid  to  the  program  will  be  accepted  and  the  user 

will  be  forced  to  correct  this  erroneous  input.  In  the  case 

* 

of  an  erroneous  option  selection,  the  user  will  be  forced  to 
complete  the  process  under  the  option  entered. 

Software  pescription 

This  linear  programming  software  package  consists  of 
four  distinct  FORTRAN  programs.  There  were  two  primary 
reasons  for  the  separate  programs.  First,  the  memory 
capacity  of  the  microcomputer  would  not  allow  the  software 
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to  be  developed  in  fewer  than  the  four  which  were  used. 
Second,  if  the  software  could  have  been  implemented  in  one 
program,  the  compiled  code  would  have  been  too  large  to  be 
stored  on  one  disk.  Therefore,  these  programs  (annotated  as 
Module  1  through  Module  4>  have  been  designed  and 
implemented  in  a  sequence  which  coincides  with  the  LP  model 
formulation,  solution,  and  analysis  sequence  used  in  most 
analyses. 

The  four  modules  serve  separate  purposes,  but  are 
related.  Module  1  must  be  used  for  problem  entry  before 
Modules  2  or  3  may  be  used.  Module  2  (the  instructional 
module)  or  Module  3  (the  problem  solver  module)  must  be  used 
to  generate  a  final  solution  before  sensitivity  analysis 
(Module  4)  .can  be  performed.  The  following  sections  will 
discuss  the  purpose  of  each  module  and  their  relationship  to 
each  of  the  other  modules  of  the  package.  Problems  which 
were  encountered  and  the  methods  of  correction  will  be 
discussed. 

Module  1  -  Data  Base  Entry  Module.  This  module,  which 
is  the  program  automatically  executed  upon  startup  through 
the  use  of  the  turnkey  system,  serves  two  primary  purposes. 
First,  it  provides  an  initial  entry  point  into  the  software 
package  where  the  program  may  begin  to  guide  the  user 
through  the  sequence  of  model  entry,  solution,  and 
sensitivity  analysis.  This  module's  second  primary  function 
is  data  base  entry.  The  user  is  guided  through  the  steps  of 
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selecting  the  type  o-f  model  to  be  entered  as  well  as 
entering  o-f  the  various  parameters  of  the  LP  model  desired 
to  be  studied. 

Module  1,  when  executed,  presents  the  user  with  several 
options  related  to  the  possible  alternatives  available  in 
the  complete  LP  package.  The  user  may  elect  to  enter  a 
model  data  base;  in  which  case,  Module  1  continues  to  guide 
the  user.  If  the  user  elects  to  solve  an  LP  problem  using 
either  Module  2  or  3,  Module  1  provides  the  necessary 
guidance.  The  last  choice  is  sensitivity  analysis.  If  this 
option  is  selected.  Module  1  informs  the  user  of  the 
required  data  bases  and  the  required  steps  to  implement 
Module  4. 

The  above  selection  allows  Module  i  to  provide  specific 
instructions  to  the  user  on  the  operating  system  commands 
required  to  enter  the  desired  module.  As  noted,  this  is  one 
of  the  primary  functions  of  this  module.  It  should  also  be 
pointed  out  that,  upon  the  completion  of  any  of  the  other 
modules,  the  user  is  given  instructions  to  execute  Module  1 
which  will  then  again  present  the  various  options.  The 
user,  at  that  point,  may  select  the  desired  step  of  the 
sequence  and  continue  the  analysis. 

The  second  purpose  of  this  module  is  model  entry.  If 
the  user  elects  to  enter  a  data  base,  Module  1  continues  to 
guide  the  user  through  the  required  steps.  This  portion  of 
the  module  consists  of  three  primary  sections!  data  base 


entry,  data  base  management,  and  execution  management 


Data  Base  Entry*  This  section  allows  the  user  to  enter 
a  model  with  or  without  names  associated  with  the  various 
parameters  of  the  model.  Also,  a  model  which  has  previously 
been  stored  on  a  disk  may  be  retrieved  for  inspection  or 
editing.  If  the  user  elects  to  enter  a  model,  a  series  o-f 
prompts  are  presented,  which  requires  either  an  option 
selection  or  parameter  input.  Prior  to  the  entry  of  the 
model  parameters,  instructions  are  displayed  which  inform 
the  user  of  the  method  and  order  to  be  followed  in  parameter 
input.  During  this  series  of  prompts,  the  user  has  access 
to  extensive  editing  functions  which  allow  correction  of  any 
previously  entered  option  selection  or  parameter  input. 

• 

These  editing  features,  in  conjunction  with  the 
screening  of  user  inputs  allow  the  inexperienced  user  to 
correct  invalid  responses  as  well  as  incorrect  input 
(meaning  valid  to  the  program  but  not  the  user  intended 
input)  without  having  to  resort  to  complete  model  reentry  to 
correct  either  type  of  error.  The  editing  features, 
available  during  data  base  entry  and  data  base  management, 
constitute  the  majority  of  this  module  in  the  terms  of 
FORTRAN  code;  however,  this  feature  was  felt  to  be  important 
in  terms  of  usability  of  this  software  package.  The  number 
and  degree  of  editing  features  to  be  employed  was  subjective 
in  nature;  however ,  previous  work  by  Conte  (Ref  6)  aided 
greatly  in  the  selection  of  those  which  would  be  most 
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beneficial  to  the  user. 

Data  Base  Management!  Upon  completion  of  the  initial 
data  base  entry  or  retrieval  of  an  model  from  a  disk,  the 
user  is  presented  several  new  options.  The  user  may  display 
the  model  to  insure  that  all  parameters  have  been  entered  as 
desired.  Also,  this  option  allows  the  output  device  to  be 
either  a  monitor  or  printer.  With  this  option,  those  users 
who  possess  printers  may  then  receive  a  hard  copy  of  the 
input,  while  those  who  do  not  have  printing  capabilities 
still  have  the  ability  to  review  input.  Should  the  user 
find  an  error  in  the  model,  access  is  provided  to  the 
editing  features  of  this  model  and  changes  may  then  be 
performed.  The  user  may  elect  to  save  the  model  to  a  disk 
under  a  user-specified  filename.  It  should  be  noted  that 
each  model  must  be  saved  to  disk  following  data  entry  and 
editing  to  allow  further  study.  This  requirement  arose  from 
the  inability  of  the  package  to  be  implemented  as  one 
program.  To  prevent  the  user  from  inadvertently  leaving 
this  module  without  first  saving  the  model  to  disk,  a  prompt 
appears  which  warns  the  user  that  the  current  model  will  be 
lost  if  not  saved. 

The  ability  to  read  a  model  from  a  disk,  combined  with 
the  editing  features,  allows  a  user  to  use  one  model  as  a 
starting  point,  perform  changes  and  then  solve  to  determine 
the  effects  of  those  changes.  The  above  procedure  would  not 
normally  be  required  due  to  the  extensive  sensitivity 
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analysis  features  o-f  Module  4}  however,  the  user  may  wish  to 
see  the  complete  solution  process  with  certain  parameter 
variations  applied. 

Execution  Managements  Once  the  initial  model  has  been 
saved  to  disk,  the  user  may  elect  to  enter  another  model 
with  the  data  base  entry  section)  however,  one  would 
normally  elect  to  solve  the  model  at  this  point.  A  menu  of 
options  allowing  Modules  2,  3  or  4  to  be  selected  is 
displayed  when  the  user  elects  to  solve  the  problem.  An 
option  o-f  returning  to  the  data  base  management  menu  is  also 
provided  to  allow  recovery  from  an  incorrect  or  undesired 
i nput . 

The  user  selects  the  desired  module  and  is  then  guided 
through  the  required  entries.  A  problem  which  was 
encountered  during  the  transition  phase  was  the  transmittal 
of  the  disknames filename.  To  solve  to  this  problem,  two 
data  files  were  created,  LPlsLPDATA  and  LP2 : LPDATAW  with 
these  files  being  placed  on  the  disks  LP1  and  LP2, 
respectively.  These  files  contain  the  disknames filename  of 
the  model  currently  being  studied.  LPlsLPDATA  contains  the 
name  of  the  most  recently  input  or  edited  model  while 
LP2sLPDATAW  contains  the  disknames filename  of  the  file  which 
contains  the  results  of  the  most  recently  solved  problem  by 
Module  2  or  3.  LPlsLPDATA  is  automatical ly  read  by  Modules 
2  and  3  while  LP2s LPDATAW  is  read  by  Module  4  to  determine 
the  file  which  contains  the  inputs  for  that  module. 
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On*  other  area  which  required  careful  planning  mas  the 


arrangement  of  the  various  editing  subroutines  in  the 
overlayed  compilation  units.  Due  to  the  extensive 
interaction  of  the  various  editing  functions,  attention  was 
required  to  avoid  several  overlayed  units  being  resident  in 
memory  simultaneously  thereby  overloading  the  capacity  of 
the  microcomputer .  This  problem  was  eliminated  by 
cross-ref erencing  the  subroutine  interaction  and  then 
forming  the  compilation  units  so  that  an  overloading  of 
memory  would  not  occur. 

Module  1  docs  not  perform  or  enhance  the  UP  model 
solution  process  but  provides  valuable  organization  support 
for  the  overall  package.  Organizing  the  package  so  that  one 
program  provides  this  support  allows  more  memory  to  be 
available  for  the  individual  functions  of  each  of  the 
remaining  modules  whose  specific  functions  will  be 
discussed. 

Module  2  —  LP  Instructional  Module.  The  goal  during 
the  development  of  Module  2  was  two-fold.  First,  the  module 
would  allow  the  user  to  select  a  previously  entered  LP  model 
and  apply  the  simplex  algorithm  to  that  model  to  determine 
an  optimal  solution.  Second,  it  was  envisioned  that  this 
module  would  be  designed  so  that  the  user  could  be  assisted 
in  learning  the  application  of  the  simplex  algorithm  to  an 
LP  model.  Although  the  primary  concern  of  the  instructional 
portion  was  to  assist  students  in  their  initial  contact  with 
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the  simplex  algorithm,  these  -features  also  allow  instructors 
to  demonstrate  to  students  the  outcome  of  procedures  or 
selections  not  complying  with  the  simplex  algorithm. 

The  initial  guidance  in  reference  to  notation  and  the 
sequence  of  steps  representati ve  of  simplex  algorithm 
computer  implementations  was  drawn  from  Billett  (Ref 
11s 101-105).  Although  the  FORTRAN  code  presented  in  Gillett 
was  of  assistance  in  forming  the  code  of  this  module, 
extensive  modifications  and  extensions  were  necessary  in 
order  to  implement  the  desired  instructional  features. 

This  module  and  Module  3  are  quite  similar  in  that  they 
both  allow  the  solution  of  an  LP  model  by  the  simplex 
algorithm.  Due  to  the  desire  to  provide  extensive  feedback 
to  the  user  during  the  instructional  process,  this  module 
was  much  larger  than  that  of  Module  3.  The  size  of  this 
module’s  FORTRAN  code  required,  as  did  Module  l’s,  careful 
consideration  of  memory  capacities  in  the  forming  of  the 
compilation  units.  As  is  discussed  in  Appendix  B,  the 
manner  in  which  the  compilation  units  are  formed  may  dictate 
the  size  of  the  overall  program. 

Several  steps  are  required  to  insure  the  LP  model  is  in 
the  proper  form  to  apply  the  simplex  algorithm.  The 
standard  LP  form  upon  which  this  and  the  following  modules 
have  been  based  has  been  illustrated  in  Chapter  II.  The 
process  of  modifying  the  LP  model  to  coincide  with  the 
stated  form  has  been  labeled  as  "tableau  formulation"  and 


involves  the  Manipulation  of  the  abjective  function  and 
resource  constraints.  Once  the  tableau  formulation  is 
completed,  the  iterative  process  of  the  pivot  element 
selection  and  moving  to  an  adjacent  feasible  solution  is 
performed.  After  moving  to  each  new  feasible  solution,  one 
must  check  to  insure  that  an  optimal  solution  has  not  been 
reached  prior  to  continuing  the  iterative  process. 
Therefore,  the  application  of  the  simplex  algorithm  has  the 
following  three  major  steps: 

1.  Tableau  formulation 

2.  Pivot  element  selection  and  determination  of  new 
basic  feasible  solution 

3.  Check  for  optimality,  unboundedness,  etc. 

The  instructional  areas  of  this  module  have  been 
divided  into  three  areas  coinciding  with  the  above  steps. 
In  order  to  allow  the  user  to  concentrate  on  the  specific 
step  or  steps  desired,  options  have  been  provided  which 
allow  either:  1.)  the  user  to  direct  the  manner  each  step  is 
performed  or  2. )  the  program  to  perform  these  actions 
without  user  interaction. 

The  three  areas  in  which  instructional  assistance  has 
been  provided  have  been  implemented  dif f erently.  During 
tableau  formulation,  several  options  which  modify  the 
objective  function  or  constraints  are  presented  to  the  user. 
The  user  selects  that  option  which  is  applicable  to  the 
abjective  function  or  to  the  constraint  under  consideration. 
At  that  time,  the  user  is  provided  feedback  as  to  whether  or 


not  the  sol action  was  correct)  and,  if  not,  the  correct 
selection  is  displayed.  Although  the  user’s  selections  eay 
be  incorrect,  the  objective  -function  constraint  is 
modified  properly. 

The  pivot  element  selection  process  has  been 
implemented  differently  than  the  process  described  above. 
The  user  is  presented  two  methods  to  select  the  pivot 
element:  with  or  without  feedback.  If  the  user  elects  to 
receive  feedback,  the  user  is  allowed  to  correct  improper 
pivot  element  selections  to  coincide  with  the  algorithm 
selection  which  is  also  displayed.  The  user  may  also  elect 
not  to  receive  feedback  on  the  validity  of  the  selection, 
and  the  user-selected  pivot  element  is  used  for  further 
computations.  Under  both  methods,  the  user  could  request 
that  the  algorithm  divide  by  zero  and  cause  an  execution 
error.  In  order  to  allow  the  maximum  possible  freedom  of 
pivot  element  selection  for  demonstration  purposes  yet 
prevent  inadvertant  execution  errors,  a  system  of  checks  has 
been  implemented  which  warns  the  user  that  an  execution 
error  may  occur  if  the  pivot  is  performed  as  selected.  The 
user  is  then  allowed  to  either  continue  with  the  previous 
selection  or  select  a  new  pivot  element. 

The  step  in  which  the  optimality,  unboundedness,  and 
infeasibility  of  the  current  solution  are  checked  has  been 
implemented  similarly  to  that  of  tableau  formulation. 
Regardless  of  user  input,  the  cycle  of  steps  2  and  3  will 
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continue  until  true  optimality,  unboundedness,  or 
infeasibility  exist.  During  each  cycle  of  the  steps,  the 
user  must  enter  responses  to  questions  pertaining  to  the 
status  of  the  last  tableau  and  receives  feedback  on  these 
responses. 

Module  2  has  implemented,  at  the  expense  of  less 
descriptive  feedback  on  user  selections,  a  capability  to 
perform  dual  pivots.  This  capability  allows  the  user  to 
become  familiar  with  the  dual  simplex  algorithm  while  also 
allowing  a  more  efficient  solution  technique  to  be  used  in 
certain  situations.  Again,  a  system  of  checks  has  been 
incorporated  which  prevents  the  user  from  improperly 
applying  the  dual  (or  regular)  pivot  method. 

Due  to  memory  size  limitations,  the  expansion  of  any 
one  portion  of  this  module  required  reduction  in  another. 
Considerable  effort  was  required  to  allow  both  dual  pivots 
and  descriptive  and  informative  feedback  to  the  user.  In 
order  to  allow  the  most  detailed  comments  possible,  standard 
formats  for  comments  were  used  with  variables  representing 
the  areas  applicable  to  the  situation.  The  comments  were 
more  descriptive  than  would  have  been  possible  if  separately 
implemented  comments  were  used  for  each  situation. 

Several  features  have  been  incorporated  into  this 
module  and  Module  3  which  increase  the  ease  of  use  and 
decrease  the  time  and  peripherals  required.  First,  the  user 
may  elect  that  output  be  displayed  in  either  scientific 
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notation  <e.g.  12.01E+C2)  or  in  the  mo re  common 
representation  (e.g.  1201).  Although  the  output  format  has 
no  influence  on  the  computations  per f or med,  the  numbers  may 
become  too  large  or  too  small  to  be  accurately  represented 
in  the  space  allocated  in  the  output  without  the  use  of 
scientific  notation.  Any  numbers  larger  than  999,999  or 
less  than  0.00001  will  be  represented  by  asterisks  or 
0.00000,  respectively,  if  the  scientific  notation  is  not 
requested . 

A  second  feature  allows  the  user  to  have  the  tabular 
output  displayed  on  the  screen  or  on  a  printer.  This  option 
allows  users  without  printing  capability  to  use  the  software 
and  allows  those  with  printers  to  receive  hard-copy  output 
for  later  use  and  study.  The  format,  which  is  identical  for 
both  output  devices,  has  been  constructed  in  a  manner  to 
facilitate  viewing  on  a  screen.  The  tableaus  are  displayed 
in  sections  from  left  to  right  with  a  user — controlled  pause 
between  screen  displays.  This  allows  the  user  to  study 
information  from  that  portion  of  the  tableau  prior  to  the 
next  screen  being  displayed. 

The  last  feature  is  primarily  applicable  to  those  who 
wish  to  use  this  module  as  a  problem  solver  without 
interaction.  This  option  allows  the  user  to  designate  the 
specific  tableaus  to  be  displayed.  This  option,  if  minimal 
output  is  required,  allows  a  solution  to  be  obtained  more 
rapidly  since  less  output  time  is  required  for  the 
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intermediate  tableaus  to  be  displayed.  The  user  should  be 
cautioned  against  changing  the  prograewr — defined  defaults 
for  tableau  output  when  using  this  module  for  instructional 
purposes.  Should  these  defaults  be  changed,  the  user  will 
not  be  able  to  determine  the  tabular  outcome  of  the  previous 
iteration  and,  therefore,  may  not  be  able  to  select  the 
proper  pivot  elements  for  future  iterations. 

When  an  optimal  solution  has  been  obtained,  the  user 
may  save  the  solution  on  disk  to  allow  for  future 
sensitivity  analysis  using  Module  4.  It  should  be  noted 
that  once  a  problem  has  been  salved  using  this  module,  there 
is  no  reason  to  use  Module  3  for  the  same  problem.  Module  3 
performs  the  same  computations  as  Module  2  with  minimal  user 
interaction. 

Module  3  -  Problem  Sol ver  Module.  Module  3  is  similar 
in  purpose  to  Module  2.  The  major  distinction  is  that 
instructional  comments  have  been  deleted  allowing  the 
addition  of  features  not  possible  in  Module  2  due  to  memory 
size  limitations.  The  primary  feature  available  in  Module  3 
not  previously  available  is  the  ability  to  explicity  solve 
the  dual  LP  model  of  an  LP  problem  entered  in  Module  1. 
Although  user  interaction  is  not  required  in  the 
transformation  process  from  the  primal  to  the  dual  problem, 
the  program  does  inform  the  user  when  variables  are  added  to 
allow  for  unconstrained  variables.  One  may  wish  to  review 
duality  theory  to  fully  understand  this  recuirement. 


Hillier  8t  Lieberman  (Ref  13*91-109)  offers  a  basic  review  of 


this  area.  The  message  which  advises  the  user  of  added 
variables  denotes  the  subscript  o-f  the  original  variable  and 
the  corresponding  added  variable  so  that  later  tableaus  say 
be  correctly  interpreted. 

This  module,  as  does  Module  2,  displays  the 
programmer — defined  default  options  upon  execution  of  the 
module.  The  options  displayed  include  the  type  of  problem 
to  solve  (primal  or  dual),  whether  or  not  to  use  dual 
pivots,  the  output  format  and  destination,  and  the  specific 
tableaus  to  be  displayed.  The  selection  of  these  default 
options  was  based  on  the  subjective  judgement  of  the 
frequency  of  use  of  the  various  options.  Also,  the  default 
options  were  defined  to  be  consistent  between  Modules  2  and 
3.  In  this  way,  a  user  who  has  become  familiar  with  the 
operation  of  one  module  may  transition  smoothly  to  use  of 
its  counterpart. 

A  problem  not  encountered  in  Module  2  implementation 
arose  during  the  incorporation  of  the  dual  problem  solving 
capability.  Module  4,  the  sensitivity  analysis  module, 
requires  access  to  the  parameters  of  the  problem  as  entered 
or,  for  dual  problem  solution,  as  it  would  have  been  entered 
as  a  primal  problem.  Since  Module  3  performs  the 
transf ormation  of  the  primal  to  the  dual,  the  parameters  of 
the  dual  problem  have  not  previously  been  saved  to  disk. 
This  requires  that  a  new  data  file  be  created  to  contain 
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these  paruwtcri.  Initially,  it  was  envisioned  that  the 
original  data  file  containing  the  input  to  Module  1  would  be 
rewritten  to  contain  the  dual  problem  parameters.  Two 
problems  were  encountered.  First,  the  original  data  file 
would  be  lost,  and  the  user  could  no  longer  use  this  file  to 
edit  the  model  for  further  problem  formulation.  Second,  and 
most  importantly,  due  to  the  possible  addition  of  variables, 
the  new  file  possibly  could  not  be  stored  on  disk  in  the 
space  allocated  to  the  original  data  file.  This  problem 
would  cause  an  input /output  error  and  premature  program 
termination.  Both  of  the  above  problems  were  overcome  by 
the  creation  of  a  new  file  with  a  user— specif ied 
d i skname s f i 1 ename . 

The  primary  areas  noted  above  were  those  which  differed 
from  that  of  Module  2  o r  in  which  special  problems  arose. 
The  user  may  save  the  results  of  problem  solution  to  disk 
for  later  sensitivity  analysis  with  Module  4.  The  user  is 
then  allowed  to  retrieve  another  LP  model  from  disk  for 
solution  or  to  receive  instructions  on  the  operating  system 
commands  to  enter  Module  1.  From  Module  1,  the  user  may 
elect  to  perform  any  of  the  functions  available  in  the 
software  package. 

Module  4  -  LP  Sensitivity  Analysis.  Module  4  provides 
several  types  of  sensitivity  analysis  for  linear  programming 
problems  previously  solved  by  Modules  2  or  3.  The  types  are 
1)  finding  range  limits  for  the  right-hand  side,  the 
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objective  -Function  coefficients,  or  the  variable 
coefficients;  2)  solving  for  a  new  final  tableau  after  one 
or  more  changes  to  any  combination  of  right-hand  side  or 
other  coefficients;  3)  solving  for  a  new  final  tableau  after 
a  new  variable  or  a  new  constraint  has  been  added.  The 
sensitivity  analysis  program  is  structurally  separated  into 
eight  parts.  A  master  menu  calls  one  of  four  sections  which 
allow  the  user  to  specify  the  type  of  analysis  desired  and 
to  enter  required  data.  These  four  sections,  in  conjunction 
with  three  additional  sections,  perform  the  analysis  and 
display  the  results  on  screen  or  printer.  Each  of  the  seven 
sub-programs  are  overlayed  on  the  main  program  when  needed. 
This  allows  the  total  package  to  greatly  exceed  the 
immediate  memory  of  the  computer. 

The  sensitivity  analysis  package  originally  included  a 
section  which  would  have  presented  the  results  in  a 
high— resolution  graphical  display;  however,  the  graphics 
package  could  not  be  overlayed.  With  the  graphics  held  in 
memory,  the  remaining  space  was  not  sufficient  to  run  any  of 
the  other  sensitivity  analysis  sections.  Because  of  this 
problem,  the  graphics  portion  was  deleted. 

All  sections  of  the  sensitivity  analysis  require  data 
from  either  Module  2  or  3.  This  data  includes  the  original 
tableaus  as  entered  by  the  user  in  Module  1  (except  for 
problems  solved  by  the  dual  method).  If  the  dual  of  the 
problem  was  solved,  the  sensitivity  analysis  receives  and 


74 


displays  all  data  as  though  the  dual  of  the  problem  had 
originally  been  entered.  This  means  that  the 
right-hand-side  values  and  the  objective  function 
coefficients  will  be  switched  and  all  elements  of  the  matrix 
will  be  transposed.  The  sensitivity  analysis  section  also 
requires  the  full  final  tableau  from  Modules  2  or  3  as  well 
as  a  number  of  flags  and  parameters  indicating  the  solution 
conditions  and  method. 

Sensitivity  analysis  is  based  on  relationships  between 
values  in  the  tableau.  The  data  received  from  Modules  2  or 
3  have  the  ordering  of  the  final  K  (number  of  constraints) 
columns  based  on  the  original  constraint  type  (<,>,=) . 
Sensitivity  analysis  is  least  complicated  when  the  last  K 
columns  are  aligned  according  to  their  association  with  the 
constraints.  That  is,  the  first  column  of  the  last  group  is 
associated  with  column  1,  etc.  This  reordering  is 
accomplished  in  Unit  48  immediately  after  the  data  is  read 
from  the  data  file.  (See  Appendix  B  for  specific 
information  on  the  units  and  their  purposes.) 

Unit  41  provides  right-hand-side  upper  and  lower  bounds 
for  the  current  optimal  solution  and  displays  the  value  of 
the  basic  variables  and  the  objective  function  (z)  at  each 
of  these  bounds.  Unit  42  provides  upper  and  lower  bounds 
for  the  objective  function  coefficients  and  for  all  original 
matrix  coefficients.  Units  41  and  42  require  no  user  input 
other  than  selecting  the  option  and  the  desired  display 


(screen,  printer,  or  both). 

Unit  43  allows  changes  to  one,  any,  or  all  of  the 
original  values  of  problems.  After  the  effects  of  all 
changes  are  summed,  the  tableau  is  returned  to  a  basic 
solution  form,  and  a  new  optimal  solution  is  obtained  using 
Unit  45.  Unit  43  requires  user  inputs  for  each  desired 
change. 

Unit  44  allows  the  addition  of  a  new  constraint  or 
variable  to  the  original  problem.  These  additions  are  a 
special  case  of  the  changes  investigated  in  Unit  43.  In 
this  case,  the  original  values  are  assumed  to  be  zero  and 
the  changes  which  are  a  result  of  the  added  constraint  or 
variable  are  determined.  Units  43  and  44  use  Unit  47  to 
check  the  validity  of  inputs. 

Unit  45  solves  the  modified  problem  (if  possible)  and 
then  displays  the  new  optimal  solution.  The  display 
routines  are  generally  limited  to  values  between  10^5  and 
10^-5.  Since  the  optimal  solution  must  always  have  a 
coefficient  value  of  1  in  the  element  representing  the  basic 
variable,  the  solutions  tend  to  be  "sized".  Any  value 
outside  of  the  displayed  range  is  suspect  and  may  be  caused 
by  ill-conditioning.  Such  values  are  usually  printed  as 
either  zeros  or  *’s.  Ill -conditioning  may  be  the  result  of 
the  sensitivity  analysis  techniques  and  does  not  necessarily 
imply  that  the  original  problem  (as  modified)  would  be 
ill-conditioned  if  solved  by  the  other  modules. 
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Several  special  conditions  eay  arise  which  will 
preclude  completion  o-f  the  desired  sensitivity  analysis.  If 
the  total  change  to  any  element  o-f  the  primary  matrix  sums 
to  approximately  -1  -for  a  variable  which  is  in  the  basis  and 
has  a  value  of  one,  the  new  value  will  approximate  zero. 
Since  this  value  is  used  as  a  divisc~  for  the  entire  row, 
any  non-zero  value  in  the  row  will  approach  infinity  after 
division,  and  the  problem  will  not  be  solvable.  In  this 
case,  the  user  is  returned  to  the  main  menu. 

Whenever  the  new  problem,  developed  through  sensitivity 
analysis,  is  either  unbounded  or  infeasible,  these 
conditions  are  noted,  and  the  solution  process  is 
terminated.  Other  than  these  noted  special  cases,  the 
sensitivity  analysis  should  produce  the  requested  output. 

Summary.  The  considerations  discussed  in  Chapter  III, 
combined  with  the  desire  to  design  an  accurate  and 
responsive  analytical  tool,  have  caused  some  compromises  in 
each  area.  The  ability  to  extensively  edit  or  recover  from 
erroneous  input  has  decreased  the  possible  thoroughness  of 
instructional  comments.  This  exchange  was  felt  to  be 
Justified  since  erroneous  inputs  could  require  a  complete 
input  of  data  causing  the  user  to  be  hesitant  in  future  use 
of  the  software. 

An  area  not  previously  discussed  is  the  use  of  prompts 
on  which  disk  must  be  available  in  a  disk  drive  to  insure 
that  an  input/output  error  does  not  occur.  Initially,  ail 
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prompts  on  disk  availability  assumed  a  two— disk  drive  systM 
con-figuration  with  one  drive  of  the  disk  containing  the 
eodule  being  used  (See  Appendix  B  for  disk  file  structure) . 
It  was  found  that  by  inserting  additional  prompts,  the  LP 
package  could  be  used  with  a  one— disk  drive  system.  This 
modif icaiton,  although  it  slows  the  overall  solution  or 
analysis  process,  allows  users  not  possessing  two  drives  to 
be  potential  users.  This  was  felt  to  be  an  improvement  to 
the  package  because  of  an  increased  potential  audience. 

The  above  enhancement,  combined  with  the  user  being 
allowed  to  select  an  output  device,  has  allowed  the  minimal 
system  configuation  shown  in  Figure  3  below. 

1.  Apple  II-plus  microcomputer  with  48K  RAM  • 

2.  One  disk  drive  <3  1/4  inch) 

3.  1 6K  memory  expansion  card 

4.  Video  display  (TV) 

-----  -  -  — -  ------ 

Figure  9.  Minimal  Hardware  Configuration 
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V  Conclusions  and  Recommend at i ons 


The  major  objective  o-f  this  thesis  Mas  the  development 
o-f  an  extensive  linear  programming  software  package  which 
could  be  used  on  a  microcomputer  system.  Several 
sub— objectives  were  also  defined  in  the  preliminary  phases 
of  the  research.  These  sub-ob jecti ves  were:  1)  the  design 
and  implementation  of  the  software  package  would  allow 
maximum  portability  among  mi crocomputer  systems}  2)  the 
software  would  be  user — oriented  and  designed  for  use  by 
non-programmer  oriented  persons}  3)  the  programs  would  be 
able  to  provide  interactive  instructional  sessions  on  the 
simplex  algorithm}  4)  the  software  would  provide  true 
sensitivity  analysis  which  could  be  supplemented  with  a 
graphical  depiction  of  the  parameters  and  their  ranges. 

The  sub-objectives  were  often  found  to  be  in  conflict 
with  each  other.  The  amount  of  FORTRAN  code  required  to 
implement  all  of  the  desired  features  could  not  be 
implemented  in  one  program  due  to  memory  size  limitations. 
Furthermore,  the  code  could  not  be  stored  on  one  disk.  To 
retain  many  of  the  desired  capabilities,  a  decision  was  made 
to  compromise  the  simplicity  of  use  of  the  software.  The 
software  now  resides  on  two  disks  in  four  separate  programs. 
This  is  somewhat  confusing  to  the  new  user}  but  the 
disadvantages  are  short-lived  while  the  advantages  of 
retaining  the  desired  features  are  long-lasting. 
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The  decision  to  use  two  disks  and  four  program 
resolved  several  other  problems  which  were  computer 
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size  dependent.  These  retained  features  includes  the 
ability  to  run  the  software  on  a  single-drive  system;  user 
prompts  abundant  with  instructions;  and  the  ability  to 
choose  the  formatting  parameters.  A  desired  feature  which 
was  not  retained  was  the  capability  to  graphically  depict 
sensitivity  range  and  parameters.  The  Pascal  Operating 
System,  as  supported  by  the  Apple  II,  docs  not  allow  the 
graphics  package  to  be  overlayed  in  memory  when  using 
FORTRAN.  When  programming  in  Pascal,  a  different  memory 
allocation  scheme  is  used  which  permits  graphics  overlay 
(Ref  IS).  Because  of  this  limitation  in  FORTRAN,  graphics 
and  large  computational  programs  could  not  be  combined.  A 
graphics  capability  would  have  required  a  fifth  program  on  a 
third  disk.  A  compromise  had  already  been  made  in  the  size 
and  complexity  of  the  linear  programming  software  package 
and,  therefore,  the  determination  was  made  to  forego  the 
graphical  capability. 

As  a  result  of  using  FORTRAN,  several  other  limitations 
or  deficiencies  are  resident  in  the  programs.  There  are  no 
provisions  in  the  programs  to  recover  from  incorrect  file 
access.  If  an  attempt  is  made  to  open  an  old  file  where 
none  existed,  or  to  open  a  new  file  when  an  old  one  of  the 
same  name  existed,  the  program  will  abort.  Provisions  have 
been  placed  in  the  programs  to  give  the  user  an  opportunity 
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to  correct  the  filename  input,  but  mistakes  are  possible 
which  will  terminate  the  program  with  an  execution  error. 
Another  deficiency  is  the  lack  of  character  string 
manipulation  capabilities.  If  concantentation  existed  in 
the  Apple  FORTRAN  subset,  the  appearance  and  meaning  of  some 
prompts  and  other  output  could  have  been  improved.  These 
limitations  are  not  present  in  Pascal.  However, 
implementation  of  these  features  in  Pascal  would  require 
additional  source  code  and  could  result  in  memory  overload. 
This  would  require  the  elimination  of  other  desired 
features. 

There  are  several  features  which  could  be  added  to  this 
linear  programming  package;  however,  the  risk  of  increased 
complexity  and  size  may  be  incurred  with  these  additions. 
The  first  feature  is  the  graphical  capability  previously 
discussed.  The  ranges  and  parameters  derived  in  Module  A 
could  be  written  to  a  disk  file.  A  fifth  program  could  then 
be  executed  to  display  the  desired  values.  This  feature 
could  be  further  enhanced  with  the  capability  to  print  the 
graphics  to  hard-copy. 

A  second  area  of  investigation  could  be  the  problem 
size  limitations  of  the  programs.  The  current  system  limits 
the  final  problem  to  twenty  constraints  and  sixty  variables. 
This  size  approaches  the  system  limit  as  currently  coded. 
By  developing  a  version  with  reduced  features,  the  maximum 
size  could  be  enlarged. 
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Other  mathematical  programming  techniques,  such  as 
integer  programming  and  goal  programming  are  also  prisiary 
candidates  for  future  enhancements.  Both  techniques  could 


be  partially  supported  by  the  present  modules;  however, 
extensive  additions  would  be  required. 

This  software  package  has  accomplished  the  objectives, 
with  the  exception  of  the  graphics  capability.  Future 
research  and  microcomputer  developments  may  allow  this 
product  to  be  enhanced  or  variations  may  be  developed  for 
specific  purposes.  Many  of  those  included  features,  as  well 
as  envisioned  modifications  to  this  software,  are  dependent 
on  the  capabilities  of  the  mi crocomputer  system.  It  must  be 
realized  that  microcomputers  have  finite  limitations  due  to 
memory  capabilities  and  the  current  language 
implementations.  These  factors  and  their  interactions  have 
placed  obvious  constraints  on  this  linear  programming 
implementation  and  requires  careful  research  before 
attempting  an  effort  of  comparable  magnitude. 
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I  Introduction 


The  primary  emphasis  in  the  main  body  of  this  thesis 
has  been  the  design  considerations  and  the  method  of 
implementation  of  this  linear  programming  software  package. 
Specific  comments  on  the  use  of  the  package  have  been 
limited;  therefore,  it  is  the  purpose  of  this  appendix  to 
provide  the  user  with  specific  information  and  guidance  on 
the  use  of  various  programs  included  in  this  LP  software 
package.  Included  in  this  section  are  the  specific 
capabilities,  limitations,  methods  of  access,  and  use  of 
each  program.  Also,  suggestions  are  provided  which  will 
reduce  the  quantity  of  input  required  by  the  user  of  these 
programs. 

An  Apple  II  microcomputer  with  48K  RAM  is  required  for 
the  use  of  this  software  as  implemented.  Also  required  are 
a  16K  memory  expansion  card,  at  least  one  5  1/4  inch  disk 
drive,  and  a  monitor.  Although  one  disk  drive  is 
sufficient,  a  second  drive  requires  significantly  fewer  disk 


changes  dur i ng 

probl em 

solution 

and 

speeds  the  process 

considerably. 

Also,  note  that 

the 

instructions 

and 

suggest ions  in 

i  thi  s 

appendix 

apply 

to  the  Apple 

II 

microcomputer  and  may  not  be  applicable  to  other  systems. 
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II  Capabi 1 i ties  and  Limitations 


This  section  specifically  outlines  the  type  of  linear 
programming  problems  which  may  be  solved  and  analyzed  with 
this  software.  Limitations  exist  and  they  will  be 

explicitly  noted  below. 

Capabi 1 i ties 

This  linear  programming  software  package  allows  the 
user  to  interactively  enter  LP  models  with  the  variables  and 
constraints  identified  only  by  numerical  identifiers  or  with 
names  associated  with  each.  These  models  may  be  stored  to  a 
disk  for  later  review,  editing,  and  solution.  Extensive 
editing  features  of  all  entries  allow  correction  during  data 
input  or  editing  at  a  later  time.  These  editing  features 
also  allow  the  user  to  input  a  model,  save  this  model  to  a 
disk,  then  change  selected  parameters  to  form  new  LP  models. 
After  the  model  has  been  input,  it  may  be  displayed  for 
review  on  the  screen  or  output  to  a  printer.  All  displays 
of  output,  prompts,  or  comments  are  screen -oriented  with 
pauses  inserted  at  the  end  of  each  screen  display  to  allow 
inspection  of  the  information  prior  to  proceeding  to  the 
next  display. 

The  remaining  programs  of  this  package  are  dedicated  to 
problem  solution  and  sensitivity  analysis.  Module  2,  the 
instructional  module,  allows  the  user  to  input  option 
selections  regarding  the  application  of  the  simplex 
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algorithm  and  receiva  feedback  concerning  the  validity  of 
the  option  selection.  Areas  in  which  instructional  coeeents 
and  guidance  have  been  provided  are  tableau  -Formulation, 
pivot  element  selection,  and  identification  of  optimal, 
infeasible,  or  unbounded  solutions.  Options  have  been 
provided  which  allow  the  user  to  specify  whether  to  perform 
and  receive  feedback  on  each  of  the  areas  or  to  allow  the 
program  to  perform  the  functions  without  user  input.  This 
permits  the  program  to  require  varying  degrees  of  user 
interface  and  corresponding  degrees  of  feedback  and 
instructional  aid. 

The  instructional  module  only  allows  the  solution  of 
the  primal  problem  of  the  LP  model;  however,  it  permits  this 
solution  by  either  the  regular  or  the  dual  simplex  method. 
When  the  solution  process  is  performed  using  the  dual 
simplex  procedure,  instructional  comments  similiar  to  those 
available  with  the  regular  simplex  procedure  are  presented. 

The  third  module,  annotated  as  the  problem  solver 
module,  allows  the  user  to  solve  either  the  primal  or  the 
dual  problem  of  the  LP  model  using  the  regular  or  the  dual 
simplex  procedure.  This  expanded  capability  allows  the  user 
to  specify  the  most  efficient  method  of  problem  solution. 
Once  the  type  of  problem  and  method  of  solution  have  been 
identified,  the  program  performs  all  formulation,  pivot 
element  selection,  and  identification  of  the  final  solution. 
Prior  to  the  solution  process,  the  user  may  specify  the 
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tableaus  to  be  displayed.  Also,  the  numerical  format  and 
location  of  output  is  user-defined. 

The  last  module  provides  the  sensitivity  analysis 
capabilities  o-f  this  package.  This  module  requires  that  an 
LP  problem  have  been  solved  using  either  problem  solving 
module  and  the  solution  parameters  saved  to  disk.  The  user 
may  then  select  one  of  five  alternatives  offered  for 
sensitivity  analysis.  Resource  constraint  right-hand-side 
ranging  within  the  present  optimal  solution  is  provided  as 
well  as  constraint  and  cost  coefficient  ranging.  The  user 
is  also  able  to  change  one  or  any  combination  of  the 
original  model  parameters  and  proceed  to  the  corresponding 
new  final  solution.  This  solution  may  be  displayed  in  the 
same  tabular  form  as  discussed  earlier.  Two  more  features 
of  the  sensitivity  analysis  module  are  the  ability  to  add  a 
variable  or  a  constraint  to  the  LP  model  and  the  ability  to 
obtain  the  corr espond i ng  solution.  This  capability  allows 
the  user  to  examine  modified  examples  of  the  original 
problem  without  resorting  to  model  editing  and  solution  with 
Modules  1  and  2  or  Modules  1  and  3. 

Limitations 

The  limitations  associated  with  this  package  are 
primarily  a  result  of  implementation  or.  a  mi crocomputer 
rather  than  a  large,  stationary  system.  The  principle  areas 
of  concern  are  the  size  of  the  LP  model  and  the  number  of 
digits  in  the  various  parameters  of  the  model. 
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Du*  to  memory  restrictions  of  the  Apple  microcomputer , 
as  well  as  most  comparably  sized  microcomputers,  the  number 
of  constraints  and  variables  are  limited  in  this  software 
implementation.  The  maximum  number  of  constraints  and 
variables  which  the  user  may  input  has  been  set  tot 

Maximum  number  of  constraintst  20 
Maximum  number  of  variables:  20 

Note  that  since  an  augmented  basis  is  used  in  problem 
solution,  this  translates  to  a  possible  twenty  constraint, 
sixty  variable  problem  for  solution. 

The  other  area  in  which  limitations  exist  is  the  number 
of  significant  digits  which  may  be  accurately  maintained  by 
the  microcomputer.  A  maximum  of  ten  digits  may  be  entered 


as  coefficients  and 

resource 

limits}  however 

,  any  number 

of 

significant  digits 

larger 

than  si  x  may 

be 

subject 

to 

round-off  during  computation 

and  display. 

The 

abi? Lty 

to 

enter  ten  digits  has  been  allowed  since  the  user  may  need  to 
enter  a  negative  sign  and  decimal  point  in  addition  to  the 
significant  digits.  Therefore,  the  user  should  be  cautious 
in  the  use  of  numbers  which  have  six  or  more  significant 
digits. 
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III  Uawr  Input 

The  amount  of  usar  input  differs  among  the  various 
modules  of  this  package ji  however,  the  amount  required  is 
extensive  in  the  data  entry  and  instructional  portions  of 
the  software.  Therefore,  minimization  of  input  is  necessary 
whenever  possible.  Listed  below  are  several  suggestions,  as 
well  as  warnings,  regarding  user  input. 

Option  Selections  The  user  will  be  required  to  make 
several  option  selections  requiring  one  or  two  digit  inputs 
or  single  character  inputs.  An  error  during  this  input  may 
have  one  of  two  results.  If  the  user  inputs  a  valid  entry 
(one  of  the  possible  alternatives)  but  not  the  desired 
option  designator,  the  user  will  not  be  able  to  prevent 
execution  of  the  selected  alternative.  If  the  entry  is  not 
a  valid  alternative,  the  program  will  inform  the  user  of  an 
invalid  entry  and  the  proper  option  designator  may  be 
entered. 

Model  Parametersi  All  numeric  parameters  <cost  and 
constraint  coefficients,  constraint  right-hand  sides)  are 
checked  for  invalid  characters  in  the  input.  Any 
non-numeric  input  except  sign  designators  and  decimal  points 
will  cause  an  invalid  entry  display  followed  by  a  request 
for  the  user  to  reenter  the  data.  Due  to  this  check  of 
input,  commas  should  not  be  entered  (i.e.  enter  lOOOO,  not 


10,000).  Positive  values  are  assumed  unless  a  negative  sign 
is  input.  Also,  all  real  nuabers  which  contain  no 
significant  digits  to  the  right  of  the  decinal  may  be 
entered  as  integers  <i.e.  1.0  may  be  entered  as  1). 

Inequality  Input i  Less-than  or  equal  (<>  must  be  input 
as  less-than  CO  inequalities  while  greater-than  or  equal 
<>)  must  be  entered  as  greater-than  inequalities  [>]. 

Yes/No  Inputs:  All  CYES3  or  CNQ3  responses  may  be 
entered  by  a  CY3  or  CN3  single  entry. 

All  Inputs:  All  user  inputs  must  be  completed  by 
depressing  the  C RETURN 3  key.  The  computer  does  not  attempt 
to  read  input  until  this  action  is  taken.  A  zero  may  be 
entered  as  a  numeric  input  by  pressing  only  the  C RETURN 1 
key;  this  allows  faster  input  of  a  model  which  has  many  zero 
coefficients. 

Printer  Option:  This  software  package  offers  the  user 
the  capability  to  have  selected  output  routed  to  a  printer; 
however,  the  selection  of  this  option  without  a  printer 
being  available  will  cause  an  execution  error.  Also,  if  the 
printer  option  is  selected,  the  user  must  insure  that  the 
printer  has  been  turned  on  and  is  in  a  printing  mode. 
Otherwise,  the  system  will  wait  indefinitely  for  the  printer 
to  accept  information,  and  it  will  "hang"  the  system. 


93 


IV.  Sy»tMI  Startup 


The  compiled  FORTRAN  coda  filas  which  fora  this  LP 
package  hava  baan  stored  on  two  5  1/4  inch  floppy  disks  with 
voluaa  naaas  LP1  and  LP2  (see  Appendix  B  for  disk  file 
structure) .  As  was  discussed  in  Chapter  IV,  a  turnkey 
system  has  baan  used  which  causes  Module  1,  the  data  base 
entry  module,  to  execute  automatically  when  the  computer  is 
turned  on.  However,  for  this  system  to  function  properly, 
two  data  files  must  be  placed  on  the  disk  LP1  prior  to  its 
use.  These  files,  SYSTEM. PASCAL  and  SYSTEM. MI SC INFO,  must 
be  transferred  from  disk  APPLE1  (Version  1.0)  to  LP1  for  the 
turnkey  system  to  operate.  For  those  who  are  not  familiar 
with  the  procedures  required  to  transfer  files,  please  refer 
to  the  operating  system  reference  manual  (Ref  1*156). 

Once  the  transfers  have  been  completed,  the  following 
steps  should  be  performed  to  allow  Module  1  to  execute. 

1.  Place  disk  APPLE1  (Version  1.0)  in  disk  drive 
*4  (the  first  disk  drive  is  numbered  as  #4  with 
the  Pascal  Operating  System  while  the  second 
drive,  if  present,  is  numbered  #5).  If  two  drives 
are  present,  also  place  disk  LP2  in  drive  #5. 

2.  Turn  on  the  power  switch  of  the  Apple— II  (#4 
drive  should  activate  and  run  for  approx i matel y 
five  seconds). 
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3.  Rmov«  APPLE  1  -fro*  #4  drive  and  replace  it 
with  LP1. 

4.  Press  the  C RESET!  key  (#4  drive  should  again 
run,  followed  by  #5,  if  a  second  drive  present, 
and  then  the  #4  drive  runs  again). 

At  this  point,  a  title  page  should  appear  on  the  screen  and 
Module  1  has  executed. 

For  those  users  not  faeiliar  with  this  software,  the 


next  section 

is 

devoted 

to  an  example 

probli 

M  and 

explanation. 

The 

probleM 

demonstrates  the 

use 

of  all 

Modules  and  may 

'  be 

of  assistance  in  learning 

the 

various 

alternatives  available  and  their  eethod  of  activation 
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This  section  is  dedicated  to  a  step-by-step  guide 
through  the  major  portions  of  this  software  package.  Users 
may  review  this  section  to  learn  the  specific  alternatives 
available  and  their  sequence  of  availability.  It  would  not 
be  feasible  to  demonstrate  all  of  the  possible  alternatives 
and  their  use;  however,  the  sequence  and  methods  felt  to  be 
most  commonly  used  will  be  shown  with  explanatory  comments 
given  for  many  of  the  other  features  available. 

Numerical  Example 

The  following  numerical  example  will  be  used  for  the 
purposes  of  this  demonstration.  The  example,  although  not  a 
large  problem,  will  allow  the  user  to  become  familiar  with 
the  method  of  data  entry  and  the  output  formats  used  in  this 
LP  package. 

Problems  An  analyst  has  been  asked  to  determine  the 
number  of  helicopters,  by  type,  which  would  be  required  to 
move  at  least  2000  men  and  1200  tons  of  equipment  to  a  new 
area  of  operation.  Three  types  of  helicopters  are  available 
with  the  following  capabilities! 

FUEL  COST (*100)  MEN  EQUIP (tons) 

TYPE1  30  3  6 
TYPES  22.5  8  3 
TYPES  25  46 
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The  analyst  has  bean  directed  to  dataraina  tha  mix  of 
aircraft  which  ainiaizas  cost)  however ,  tha  analyst  has  baan 
rastrictad  to  tha  usa  of  400  halicopters  <Ref  6: 75) . 


Tha  abova  situation  aay  ba  f  omul  a  tad  as  a  linear 
programming  problea  as  follows: 

x<l>  =  number  of  TYPEi  aircraft 
x  <2)  »  nuabar  of  TYPE2  aircraft 
x (3)  =  number  of  TYPE3  aircraft 


minimize  30 

x  (1) 

22.5 

x  <2) 

+ 

25 

x  (3) 

subject  to 

5 

x  (1) 

+ 

a 

x  (2) 

4 

x  <3) 

> 

2000 

6 

X  (1) 

+■ 

3 

x  <2) 

4 

x  (3) 

> 

1200 

>:  (1) 

+ 

x  (2) 

♦ 

x  <3) 

< 

400 

Module  Demonstration 

In  the  demonstration  which  follows,  all  inputs  by  the 
user  have  been  placed  in  square  brackets  (C  ])  to 
distinquish  input  from  screen  displays  and  prompts.  All 
user  inputs  are  completed  by  depressing  the  C RETURN 3  key  to 
allow  tha  program  to  read  this  input.  Another  area  which 
may  require  clarif ication  is  the  PAUSE  statement  which 
appears  after  displays  not  requiring  data  input.  Tha  user 
must  depress  the  ERETURN1  key  or  tha  C SPACE  3  bar  whenever  a 
PAUSE  statement  appears  before  tha  program  will  continue. 
The  input  of  any  other  type  than  tha  two  stated  will  causa  a 
new  PAUSE  statement  to  appear. 
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Ngdyli  1.  The  first  step  required  in  the  us*  of  this 
LP  software  package  is  systee  initialization  which  is 
performed  as  described  in  Fart  IV  of  this  appendix,  Systee 
Startup.  Once  those  procedures  have  been  completed,  the 
following  title  page  will  be  displayed. 


********************** 


*  FORTRAN  BASED  * 

*  t 

*  LINEAR  PROGRAMMING  * 

I  * 

*  FOR  * 

*  * 

*  MICROCOMPUTERS  * 


********************** 


BY 

THEODORE  R.  E.  FRALEY 
AND 

DALE  A.  KEM 

ARE  INTRODUCTORY  REMARKS  DESIRED? 
<Y/N,  RETURN)  CY1 


Should  one  wish  to  review  the  introductory  remarks,  a 
CY]  would  be  entered  < remember  that  the  brackets  indicate 
user  input  followed  by  a  CRETURN3  )  and  the  following 
comments  will  be  displayed.  Note  that  in  the  lower  left 
corner  of  each  display  the  word  "PAUSE"  appears.  This 
indicates  that  no  further  displays  or  program  progress  will 
occur  until  the  C SPACE 1  bar  or  [RETURN]  key  have  been 
depressed . 
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LINEAR  PROGRAMMING  SOFTWARE  PACKAGE 

THIS  PACKAGE  IS  DESIGNED  TO  ALLOW 
STUDENTS  TO  IMPROVE  THEIR  UNDERSTANDING 
OF  THE  SIMPLEX  ALGORITHM  AND  ALSO  TO 
PROVIDE  THE  MANAGERS  AND  ANALYSTS  WITH  A 
PROBLEM  SOLVING  TOOL. 

THE  PACKAGE  CONSISTS  OF  FOUR  DISTINCT 
PROGRAMS  (ANNOTATED  AS  MODULES)  WHOSE 
FUNCTIONS  ARE  AS  FOLLOWS* 

MODULE  1:  DATA  BASE  ENTRY 
MODULE  2:  LP  INSTRUCTION 
MODULE  3*  LP  PROBLEM  SOLVER 
MODULE  4s  SENSITIVITY  ANALYSIS 

ALL  LP  PROBLEMS  MUST  BE  ENTERED  INTO  A 
DATABASE  USING  MODULE  1.  MODULES  2  OR 
3  MAY  BE  USED  TO  DETERMINE  A  SOLUTION  TO 
A  PROBLEM  AND  THIS  MUST  OCCUR  PRIOR  TO 
ENTERING  MODULE  4. 

PAUSE 


INSTRUCTIONS  ON  HOW  TO  ENTER  EACH  MODULE 
WILL  BE  PRESENTED  WHEN  APPROPRIATE. 

ANSWERS  TO  SPECIFIC  QUESTIONS  CONCERNING 
ANY  MODULE  WILL  BE  FOUND  IN  THE  USERS 
GUIDE  (APPENDIX  A)  OF  THE  THESIS 
DOCUMENTATION. 

ALL  RESPONSES  REQUIRE  A  t RETURN 3  TO  NOTE 
THE  COMPLETION  OF  INPUT. 

ALSO,  ALL  YES/NO  INPUTS  MAY  BE  ENTERED 
BY  CY3  OR  CN3 ,  RESPECTFULLY. 

PAUSE 


After  the  introductory  remarks,  the  first  menu 
displayed  is  that  of  module  selection.  Since  a  data  base 
has  not  previously  been  entered,  one  would  select  option  C13 
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to  continue  in  Module  1  and  data  base  entry 


MODULE  SELECTION 

THE  FOLLOWING  OPTIONS  ARE  AVAILABLE! 

1.  DATA  BASE  ENTRY  (ENTER  DATA  BASE  OR 
EDIT  CURRENT  DATA  BASE) 

2.  LP  INSTRUCTIONAL  MODULE 

3.  LP  PROBLEM  SOLVER  MODULE 

4.  LP  SENSITIVITY  ANALYSIS  MODULE 

(NOTEi  OPTIONS  2  OR  3  REQUIRE  THAT  A 
DATA  BASE  BE  CURRENTLY  STORED  ON  DISK) 

(NOTE:  OPTION  4  REQUIRES  THAT  A  DATA 
FILE  HAS  BEEN  SAVED  UPON  LEAVING  THE 
OPTION  2  OR  3  MODULES  ABOVE.) 

WHICH  OPTION?  Cl 3 

The  -following  header  confirms  entry  into  the  data  base 
entry  portion  of  Module  1. 

********* ************ 

*  DATA 

* 

*  BASE 

*  ENTRY 

*  MODULE 

* 

*  MODULE  1 

* 

********************* 

PAUSE 
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Following  the  data  base  entry  header,  the  user  is 
offered  several  alternatives  of  entering  a  data  base. 
Again,  no  previous  data  base  exists  so  either  option  1  or  2 
must  be  selected.  Option  C23  allows  the  sane  input  as 
option  1,  but  allows  the  constraints  and  variables  to  be 
identified  by  names  as  well  as  subscripts. 


DATA  BASE  ENTRY 

TO  ENTER  LP  MODEL  DATA  BASE 
YOU  HAVE  THE  FOLLOWING  OPTIONS: 


1.  CREATE  MODEL  INTERACTIVELY: SUBSCRIPTS 
< VARIABLES  ANNOTATED  BY  SUBSCRIPTS, 
CONSTRAINTS  ANNOTATED  BY  NUMBER  ONLY) 

2.  CREATE  MODEL  INTERACTIVELY: NAMED 
VARIABLES  AND  CONSTRAINTS  ARE 
ASSIGNED  NAMES) 

3.  READ  FROM  DISK 
(PREVIOUSLY  CREATED  BASE) 

4.  DISPLAY  INTRODUCTORY  REMARKS 

5.  QUIT  PROGRAM 

WHICH  OPTION?  123 


If  a  data  base  had  been  previously  entered  and  saved  to 
disk,  one  could  select  option  3.  At  that  time,  the 
following  three  displays  of  comments  and  prompts  would 
appear.  If  this  previous  file  had  been  placed  on  disk  LPi 
(volume  name)  with  a  filename  of  BUSES,  one  would  enter  this 
as  shown  below  to  retrieve  that  model.  The  next  two  prompts 
appear  sequentially  to  inform  the'  user  that  the  designated 
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disk  must  be  in  the  #4  disk  drive  -for  a  one  drive  syst- 


in  either  drive  -for  a  multiple  drive  system.  A  habit  of 
leaving  disk  LP1  in  drive  #4  and  disk  LP2  in  drive  #5  has 
been  -found  to  be  bene-ficial  -for  a  two  drive  system.  In  this 
con-figuration,  only  when  -files  are  to  be  written  or  read 
-from  another  disk  are  the  two  disks  not  accessible  in  the 
disk  drives. 


Continuing  with  the  data  base  entry  -for  the  example 
problem,  one  would  enter  an  identifier  for  later  reference. 
Also,  the  type  of  problem  is  entered  at  this  time  as  shown 
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ENTER  A  PROBLEM  IDENTIFIER 
(MAXIMUM  OF  20  CHARACTERS) 

PROBLEM  ID  -  C SAMPLE  PROBLEM! 

IS  PROBLEMS  OBJECTIVE  FUNCTION  TO  BEs 

1.  MAXIMIZED 

OR 

2.  MINIMIZED 
WHICH  OPTION?  C2J 


Next,  one  identifies  the  objective  name  of  the  problem. 
This  input  is  not  allowed  for  models  with  only  subscript 
designators. 


WHAT  IS  THE  NAME  OF  THE  OBJECTIVE  YOU 
WANT  TO  MINIMIZE? 

(FOR  EXAMPLE,  COST,  MANPOWER,  ETC. ) 
MAXIMUM  OF  10  CHARACTERS  ALLOWED 
OBJECTIVE  NAME  »  CC0ST1 


At  this  point,  the  number  of  constraints  and  variables 
which  form  the  LP  model  are  entered.  Nonnegativity 
constraints  are  not  to  be  included  in  the  number  of 
constraints  entered  below. 
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ENTER  NUMBER  OF  CONSTRAINTS  IN  PROBLEM 
(MAXIMUM  OF  20) 


NUMBER  OF  CONSTRAINTS  -  C33 
**************************************** 

ENTER  NUMBER  OF  VARIABLES  IN  PROBLEM 
(MAXIMUM  OF  20) 

NUMBER  OF  VARIABLES  -  133 

Since  a  model  wLth  names  has  been  selected,  the 
■following  three  displays  are  presented  allowing  the  input 
and  correction  o-F  the  decision  variable  names.  First  the 
names  are  input  and  in  the  next  display,  a  C Y3  may  be 
entered  to  allow  correction  of  the  names.  An  INI  has  been 
entered  since  corrections  were  not  needed. 


VARIABLE  NAME  INPUT 

ENTER  VARIABLE  NAMES  WHICH  CORRESPOND 
TO  THE  3  VARIABLES  THAT  AFFECT 
COST 

NAMES  ARE  TO  BE  6  CHARACTERS  OR  LESS. 
PAUSE 


PROBLEM  IDi  SAMPLE  PROBLEM 
VARIABLE  NAME  INPUT 

X<  1)  -  CTYPE1J 
X<  2)  ■  CTYPE23 
X(  3>  *  CTYPE33 


j 
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PROBLEM  IDs  SAMPLE  PROBLEM 
VARIABLE  NAME  INPUT 

ARE  CORRECTIONS  NEEDED?  CN3 


The  seme  sequence  appears  next  -for  the  input  and 
correction  o-f  constraint  naees.  Note  that  variable  and 
constraint  name  input  is  not  allowed  -for  models  with 
subscripts  only.  Although  these  names  are  useful  for  ease 
of  variable  identification,  input  of  the  data  base  is  slowed 
considerably  by  this  requi renment . 


CONSTRAINT  NAME  INPUT 

ENTER  CONSTRAINT  NAMES  WHICH  CORRESPOND 
TO  THE  3  CONSTRAINTS  WHICH  AFFECT 
COST 

NAMES  ARE  TO  BE  b  CHARACTERS  OR  LESS. 
PAUSE 


PROBLEM  IDi  SAMPLE  PROBLEM 

CONSTRAINT 

NAME  INPUT 

CONSTRAINT 

1  -  C PERSON! 

CONSTRAINT 

2  «  C EQUIP! 

CONSTRAINT 

3  *  C PLANES! 

PROBLEM  IDi  SAMPLE  PROBLEM 
CONSTRAINT  NAME  INPUT 

ARE  CORRECTIONS  NEEDED?  CN! 
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Next,  the  objective  function  is  input  following 
conMnts  regarding  the  restrictions  on  nume ricsl  input. 
After  completion  of  input,  the  option  of  correcting  input  is 
presented.  This  sllows  changes  of  any  type  to  the  objective 
function.  Note  that  the  coefficients  input  below  do  not 
include  decimals  for  those  without  significant  digits  to  the 
right  of  the  decimal.  This  allows  for  more  rapid  input  of 
the  coefficients  values. 


OBJECTIVE  FUNCTION  INPUT 

INPUT  THE  FUNCTION  AS  IF  IT  WERE  IN  THE 
FOLLOWING  FORM 

Z  -  X<1)  +  X<2)  X<3>  +■  ETC. 

A  MAXIMUM  OF  10  ENTRIES  PER  COEFFICIENT 
INCLUDING  DECIMAL  AND  SIGN  ARE  ALLOWED. 

IF  COEFFICIENT  IS  ZERO,  HIT  "RETURN" 
WITHOUT  DIGIT  ENTRY. 

PAUSE 


PROBLEM 

IDi  SAMPLE  PROBLEM 

OBJECTIVE  FUNCTION  INPUT  j 

COST 

MINIMIZATION 

C(  1) 

■  TYPE1  -  C301 

C<  2) 

■  TYPE2  -  122. S3 

C(  3) 

»  TYPES  -  C253 
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No  corrections  w ere  ntaded  so  in  the  objective  function 
an  END  Mas  entered  below. 


PROBLEM  IDi  SAMPLE  PROBLEM 
OBJECTIVE  FUNCTION  INPUT 
COST  MINIMIZATION 

ARE  CORRECTIONS  NEEDED?  CN3 


The  constraint  coefficients  are  input  next  in  the  sane 
type  sequence  as  the  objective  function.  One  constraint  is 
entered  per  display  with  the  option  of  corrections  being 
presented  after  the  last  constraint  has  been  entered.  This 
editing  allows  the  user  to  change  any  constraint  and  any 
part  of  the  input,  including  the  inequality.  Note  that  the 
nonnegativity  constraints  are  not  entered  into  the  model. 
Also,  note  that  the  constraint  coefficients  are  input  as 
integers  since  no  significant  digits  exist  to  the  right  of 
the  decimal  point. 
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CONSTRAINT  INPUT 


INPUT  CONSTRAINT  VARIABLE  COEFFICIENTS 
AS  IF  THE  CONSTRAINT  WAS  IN  THE 
FOLLOWING  FORM 

X<1)  X  (2)  ♦  X  (3)  <*>  RHS 

THE  VARIABLE  COEFFICIENTS  ARE  A  MAXIMUM 
OF  10  CHARACTERS 


IF  COEFFICIENT  IS  ZERO,  ENTER  O  OR  HIT 
“RETURN"  WITHOUT  ENTRY. 

THE  LESS-THAN  <<)  REPRESENTS  A  LESS-THAN 
OR  EQUAL  INEQUALITY. 

THE  GREATER-THAN  <>)  REPRESENTS  A 
GREATER-THAN  OR  EQUAL  INEQUALITY. 

NEGATIVE  RHS  IS  PERMITTED. 

PAUSE 


PROBLEM  ID*  SAMPLE  PROBLEM 
CONSTRAINT  1  =  PERSON 

X<  1)  »  TYPE1  «  £53 
X(  2)  ■  TYPE2  *  £83 
X(  3)  ■  TYPE3  -  £43 
INEQUALITY  03 

RHS  -  C 2000 3 


PROBLEM  ID:  SAMPLE  PROBLEM 

CONSTRAINT 

2  *  EQUIP 

X<  1)  *  TYPE1 

■  £63 

X<  2)  -  TYPE2 

*  £33 

X<  3)  »  TYPES 

*  £63 

INEQUALITY 

E  >3 

RHS 

-  £12003 
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PROBLEM  ID*  SAMPLE  PROBLEM 
CONSTRAINT  3  -  PLANES 


X<  1)  -  TYPE1  -  Cl 3 
X<  2)  ■  TYPE2  »  Cl 3 
X<  3)  »  TYPES  »  C 1 3 
INEQUALITY  C<3 

RHS  *  C4003 
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The  next  -four  displays  pertain  to  saving  the  model  to  a 
disk.  The  user  -first  enters  the  disknames -filename  which  the 
current ' model  is  to  be  saved  under.  Next,  the  user  is  given 
the  opportunity  to  correct  this  diskname.  The  user  is  then 
directed  to  insure  that  the  specified  disk  is  in  a  disk 
drive.  Next,  the  user  is  required  to  input  the  status  of 
the  diskname i-filename  combination.  If  one  has  previously 
saved  a  model  to  the  same  disknamei filename  combination,  but 
answers  CNJ  in  the  third  display,  ail  input  data  will  be 
lost.  This  will  then  require  reinitialization  of  the  system 
and  reentry  of  the  last  data  base. 

SAVE  LP  MODEL  TO  DISK 

ENTER  TNE  DISK  DRIVE  NUMBER  AND  FILE 
NAME  WHICH  YOU  WANT  PROBLEM 
SAMPLE  PROBLEM 
SAVED  UNDER. 

ENTER  EXACTLY  AS  FOLLOWS 
DISK  DRIVE* FILENAME 

EG.  #4  *  F I LENAM 

THE  DRIVE* FILENAME  MUST  BE  10  CHARACTERS 

OR  LESS 

IF  THE  ABOVE  IS  ENTERED  INCORRECTLY, 

YOUR  MODEL  WILL  BE  LOST! • 

DISK* FILENAME  -  CLP1 : SAMPLE 3 

ARE  CORRECTIONS  NEEDED?  CN3 


INSURE 

THE  DISK  TO  CONTAIN  THE  FILE 

LP1*  SAMPLE 

IS  AVAILABLE. 

PAUSE 

HAS  THIS  DISK: FILENAME  COMBINATION  BEEN 
USED  PREVIOUSLY? 

(ARE  YOU  UPDATING  A  CURRENTLY  EXISTING 

FILE?) 

<Y/N)  CN3 


INSURE  DISK  LP1  IS  AVAILABLE. 


A* ter  the  model  has  been  saved,  control  returns  to  the 
data  base  management  menu  as  shown  below.  At  that  point, 
one  may  select  option  2  and  the  data  base  editor  menu  would 
be  displayed  as  shown  below  the  data  base  management  menu. 


Ill 


DATA  BASE  MANAGEMENT 

THE  FOLLOWING  OPTIONS  ARE  AVAILABLE* 

1.  DISPLAY  CURRENT  LP  MODEL 
(SCREEN  OR  PRINTER) 

2.  EDIT  CURRENT  LP  MODEL 
(CHANGE  ANY  PARAMETER) 

3.  SAVE  CURRENT  MODEL  TO  DISK  FILE 
(MAY  THEN  EDIT  TO  ANOTHER  MODEL) 

A.  ENTER  NEW  MODEL 

(CURRENT  MODEL  LOST  IF  NOT  ON  DISK) 

5.  SOLVE  PROBLEM 

(INCLUDES  EDUCATIONAL,  PROBLEM  SOLVER, 
AND  SENSITIVITY  ANALYSIS) 

6.  QUIT: UNSAVED  FILES  DESTROYED* 

WHICH  OPTION?  C53 


DATA  BASE  EDITOR 

YOU  MAY  EDIT  THE  CURRENT  MODEL  IN  ANY  OF 
THE  FOLLOWING  MANNERS: 

1.  ADD  A  VARIABLE 

2.  ADD  A  CONSTRAINT 

3.  DELETE  A  VARIABLE 
A.  DELETE  A  CONSTRAINT 

3.  CHANGE  COEFFICIENT  BY  CONSTRAINT 

6.  CHANGE  COEFFICIENTS  BY  VARIABLE 

7.  CHANGE  RHS  OF  CONSTRAINT 

8.  CHANGE  CONSTRAINT  INEQUALITY 

9.  CHANGE  OBJECTIVE  FUNCTION  COST 
COEFFICIENTS 

10.  CHANGE  MAXIMIZATION/MINIMIZATION 
CHOICE 

11.  CHANGE  VARIABLE  NAMES 

12.  CHANGE  CONSTRAINT  NAMES 

13.  RETURN  TO  LAST  MENU 
(DATA  BASE  MANAGEMENT) 

WHICH  OPTION?  C 131 


As  shown,  ex tens! vs  editing  features  are  available 


and 
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could  also  have  been  used  prior  to  saving  tha  model  to  disk. 
These  features  could  also  be  used  to  -fora  a  naw  LP  aodal  by 
changing  salacted  paraeeters  of  the  model  in  nenory.  Upon 
completion  of  tha  editing,  one  may  return  to  the  data  base 
management  menu  by  selecting  option  Cl 33. 

Option  4  of  the  data  base  management  menu  above  could 
have  been  selected  if  the  user  wished  to  enter  a  nan*  model 
after  saving  the  first  model  to  disk.  The  user  ,  if 
attempting  to  enter  a  new  model  prior  to  saving  the  first  to 
disk,  receives  a  warning  that  the  first  model  must  be  saved 
or  will  be  lost. 

Option  CS1  has  been  selected  in  the  last  data  base 

management  menu  signifying  that  the  problem  is  now  to  be 

* 

solved.  Again,  if  this  option  had  been  selected  prior  to 
saving  the  last  entered  model  to  disk,  a  warning  message 
would  have  appeared  and  the  user  would  have  been  allowed  to 
save  the  last  model  before  progressing  to  problem  solution. 

Following  the  selection  to  solve  the  problem,  the 
following  menu,  execution  management,  is  displayed.  Option 
Cll  has  been  selected  for  this  demonstration;  however, 
option  2  could  also  have  been  selected.  Option  3  is  not 
possible  at  this  time  since  a  problem  must  have  previously 
been  solved  with  Module  2  or  Module  3  and  the  results  saved 
to  disk.  The  user  is  also  permitted  to  return  to  the  data 
entry  section  prior  to  exiting  this  module.  The  user,  upon 
selection  of  ootien  1,  2,  or  3,  is  prompted  to  insure  a 
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required  disk  is  accessible 


EXE/UTION  MANAGEMENT 
THE  FOLLOWING  OPTIONS  ARE  AVAILABLE! 

1.  LP  INSTRUCTIONAL  MODULE 

(EACH  TABLEAU  MAY  BE  DISPLAYED) 

2.  PROBLEM  SOLVER  MODULE 
(NO  USER  INTERACTION) 

3.  SENSITIVITY  ANALYSIS  MODULE 

4.  RETURN  TO  DATA  BASE  MANAGEMENT  MENU 

5.  QUIT: UNSAVED  FILES  WILL  BE  LOST* 


WHICH  OPTION?  Cl  3 


_ as 

INSURE  DISK 

PAUSE 

LP1 

IS  AVAILABLE. 

After  the  selection  of  a  module,  the  following  display 
allows  the  user  to  specify  a  data  base  other  than  the  last 
entered  for  solution  by  the  selected  selected  module.  One 
may  enter  CN1  in  the  response  below  and  is  then  allowed  to 
specify  a  file  as  was  done  earlier  for  reading  a  file  from 
disk.  As  shown,  the  last  file  entered  is  desired  so  a  CY3 
was  entered.  The  last  display  of  this  module  them  appears. 
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LP  INSTRUCTIONAL  MODULE 

TO  USE  THIS  MODULE,  A  DATA  BASE  MUST 
HAVE  BEEN  PREVIOUSLY  CREATED  USING  THE 
DATA  BASE  ENTRY  < MODULE  1)  AND  SAVED  TO 
DISK. 

THE  DATA  BASE  WHICH  IS  CURRENTLY 
IDENTIFIED  AS  THE  PROBLEM  TO  BE  STUDIED 
IS* 

LP1* SAMPLE 


IS  THIS  THE  MODEL  YOU  WISH  TO  STUDY?  CY3 


Simultaneously  with  the  display  below,  the  control 
returns  to  the  operating  system.  The  user  need  only  enter 
tX3  (no  £ RETURN 3  key  should  be  used  after  the  input  of  CX3). 
Next,  the  user  enters  CLP1:ED3  and  Module  2,  which  contains 
the  instructional  code,  will  be  executed.  If  the  user  had 
selected  option  2  of  the  execution  management  menu,  th-"  only 
difference  would  have  been  that  CLP2sTAB3  would  have 
replaced  CLPlsED3  above.  One  need  no*,  memortr*-  this  fact 
since  the  prompt  will  reflect  the  option  input  by  the  user. 

As  a  final  note,  users  must  insure  that  the  disk 
containing  the  desired  module  is  in  a  disk  drive  when  the 
above  operating  system  commands  are  entered.  The  user  may 
identify  the  required  disk  by  the  LP1  or  the  LP2  preceeding 
the  colon  and  filename  entered  to  the  operating  system. 
This  will  coincide  with  one  of  the  two  disks  provided  with 
this  software  package. 
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Module  2*  The  last  entries  of  the  Module  1 
demonstration  * ere  CXI  and  CLP1:ED3.  These  are  the 
operating  systems  commands  Mhich  direct  the  execution  of  the 
code  file  ED  on  disk  LP1.  Therefore,  disk  LP1  must  be 
accessible  when  these  commands  are  entered.  Once  these 
steps  have  been  completed,  the  following  header  appears 
which  confirms  the  execution  of  Module  2,  the  instructional 
module. 


Following  the  header,  the  default  options  are  displayed 
as  shown  below.  On  the  right  of  the  display,  the  options 
which  have  been  programmer  defined  are  shown.  These  options 
control  the  extent  of  user  interface  required  in  the 
instructional  areas  as  well  as  the  method  of  solution. 
Options  5  through  7  allow  the  user  to  designate  those 
tableaus  to  be  displayed  as  well  as  their  location  and 
format.  Those  options  desired  to  be  changed  may  be  selected 
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in  any  order.  The  number  of  alternatives  available  within 
the  options  vary;  however,  several  options  have  only  two 
possibi li i ties  (options  3,  6f  and  7).  These  options  require 
only  that  they  be  selected  while  the  other  options  require 
-further  input  to  cause  a  change  in  their  value.  After  the 
selection  and  change  of  any  option,  the  default  values  are 
again  displayed  with  the  noted  changes.  When  the  user  is 
satisfied  with  the  defaults  as  displayed,  option  8  should  be 
selected  to  allow  the  program  to  continue.  The  major 
options  and  their  alternatives  are  shown  in  the  following 
sequence. 

For  instance,  if  the  user  would  like  to  review  the 
alternatives  available  under  option  1,  [11  would  be  input  as 
shown  below. 


DEFAULT  OPTIONS 

ENTER  OPTION  NUMBER  TO 

CHANGE 

1. TABLEAU  FORMATION 

USER 

2. PIVOT  ELEMENT  SELECTION 

USER  SEL 
ALGOR  CHK 

3. DUAL  PIVOTS 

N 

1 4. INFEASIBLE, UNBOUNDED, OPTIMAL 

SELECTION  IDENTIFICATION 

USER 

5. TABLEAUS  TO  BE  DISPLAYED 

INITIAL 

Y 

INTERMEDIATE 

N  =  1 

FINAL 

Y 

6. OUTPUT  LOCATION 

SCREEN 

7. OUTPUT  FORMAT 

8. NO  CHANGES 

F  FORMAT 

*SEE  DOCUMENTATION  FOR  EXPLANATION 

[  WHICH  OPTION  (ENTER  1 

-8)?  Cll 
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The  display  below  describes  the  alternatives  available 


■for  this  area  of  the  instructional  aid.  Option  C13  was 
selected  as  shown  below  which  will  allow  instructional 
comments  to  be  provided  for  the  user.  Note  that  this  was 
the  same  alternative  as  was  originally  designated  as  a 
default. 


EDUCATIONAL  MODULE  OPTION  SELECTION 

IN  ORDER  TO  PLACE  THE  LP  MODEL  INTO  THE 
PROPER  FORM  FOR  THE  SIMPLEX  ALGORITHM 
(OBJECTIVE  FUNCTION  CHANGES,  ADDITION  OF 
SLACK  OR  ART IF1CAL  VARIABLES),  WHICH 
METHOD  IS  DESIRED? 

1.  USER  SELECTS  MODIFICATION  AND 
ALGORITHM  CHECKS 

OR 

2.  ALGORITHM  PERFORMS  MODIFICATIONS. 

(NO  USER  INPUT) 

WHICH  OPTION?  Ill 


The  default  menu  then  appears  and  the  next  option  to  be 
changed  may  be  entered.  Option  C23  was  selected  as  the  next 
to  be  changed. 
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DEFAULT  OPTIONS 

ENTER  OPTION  NUMBER  TO  CHANGE 

1. TABLEAU  FORMATION 

USER 

2. PIVOT  ELEMENT  SELECTION 

USER  SEL 
ALGOR  CHK 

3. DUAL  PIVOTS 

4. INFEASIBLE, UNBOUNDED, OPTIMAL 

N 

SELECTION  IDENTIFICATION 

5. TABLEAUS  TO  BE  DISPLAYED 

USER 

INITIAL 

Y 

INTERMEDIATE 

N  -  1 

FINAL 

Y 

6. OUTPUT  LOCATION 

SCREEN 

7. OUTPUT  FORMAT 

8. NO  CHANGES 

F  FORMAT 

*SEE  DOCUMENTATION  FOR  EXPLANATION 

WHICH  OPTION  (ENTER  1-8) 

?  C2D 

The  user  is  now  shown  the  alternatives  available  -for 
the  pivot  element  selection.  Selections  2  and  3  do  not 
provide  -feedback  to  the  user;  however,  the  use  of  selection 
2  may  be  beneficial  to  instructors  who  wish  to  demonstrate 
the  outcome  of  an  inappropriate  pivot  element  selection. 
Option  Ell  has  been  selected  below. 


EDUCATIONAL  MODULE  OPTION  SELECTION 

IN  SELECTION  OF  PIVOT  ELEMENTS  FOR  THE 
SIMPLEX  ALGORITHM.  WHICH  METHOD  WOULD 
YOU  LIKE? 

1.  USER  SELECTS,  ALGORITHM  CHECKS. 

(MAY  CHANGE  SELECTION  AFTER  CHECK) 

2.  USER  SELECTS,  NO  ALGORITHM  CHECK. 

3.  ALGORITHM  SELECTS,  NO  USER  INPUT. 


WHICH  OPTION?  Ill 


The  da-fault  menu  Mould  again  appear  (not  shown)  and 
option  £41  could  be  input,  resulting  in  the  -folloMing 


display.  Again,  the  user  may  select  the  degree  o-f  user 
interaction  desired.  Option  £11  has  been  selected  to  allow 
the  demonstration  of  the  instructional  comments  available. 
This  option  requires  the  user  to  respond  to  questions 
concerning  the  status  of  the  tableau  while  option  2  would 
have  allowed  the  program  to  perform  these  actions  without 
user  interface. 


EDUCATIONAL  MODULE  CPTICN  SELECTION 

AS  OPTIMAL,  INFEASIBLE,  OR  UNBOUNDED 
SOLUTIONS  OCCUR,  WHICH  METHOD  WOULD  YOU 
LIKE? 

1.  USER  ATTEMPTS  TO  IDENTIFY,  ALGORITHM 
CHECKS. 

2.  SYSTEM  IDENTIFIES  AND  REPORTS  AS 
OCCURS. 

WHICH  OPTION?  £11 


The  default  menu  is  displayed  reflecting  any  changes 
which  have  been  requested.  Since  the  user  may  have  no 
initial  feeling  for  the  magnitude  of  the  final  solution 
values,  option  £71  has  been  input  to  allow  larger  numbers  to 
be  displayed. 
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DEFAULT  OPTIONS 

ENTER  OPTION  NUMBER  TO  CHANGE 

1. TABLEAU  FORMATION 

USER 

2. PIVOT  ELEMENT  SELECTION 

USER  SEL 
ALGOR  CHK 

3. DUAL  PIVOTS 

4. INFEASIBLE, UNBOUNDED, OPTIMAL 

N 

SELECTION  IDENTIFICATION 

USER 

5. TABLEAUS  TO  BE  DISPLAYED 

INITIAL 

Y 

INTERMEDIATE 

N  *  1 

FINAL 

Y 

6. OUTPUT  LOCATION 

SCREEN 

7. OUTPUT  FORMAT 

8. NO  CHANGES 

F  FORMAT 

1 

♦SEE  DOCUMENTATION  FOR  EXPLANATION  j 

WHICH  OPTION  (ENTER  l-8> 

?  C71 

The  option  7  selection  changes  the  de-fault  to  "E 
FORMAT"  as  shown  above.  Now  that  all  desired  changes  have 
been  made,  option  C8D  is  entered  as  shown  and  the  program 
continues. 
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DEFAULT  OPTIONS 
ENTER  OPTION  NUMBER  TO  CHAN6E 

1.  TABLEAU  FORMATION  USER 

2.  PIVOT  ELEMENT  SELECTION  USER  SEL 

ALGOR  CHK 


3. DUAL  PIVOTS  N 

4. INFEASIBLE, UNBOUNDED, OPTIMAL 

SELECTION  IDENTIFICATION  USER 

5. TABLEAUS  TO  BE  DISPLAYED 

INITIAL  Y 

INTERMEDIATE  N  =  1 

FINAL  Y 

6. OUTPUT  LOCATION  SCREEN 

7. OUTPUT  FORMAT  E  FORMAT 

8. NO  CHANGES 


f SEE  DOCUMENTATION  FOR  EXPLANATION 


WHICH  OPTION  (ENTER  l-8>?  C83 


The  next  three  displays  in-form  the  user,  and  in 
particular  the  one-disk-drive  system  user,  that  a  particular 
disk  must  be  accessible  before  continuing. 


INSURE  DISK 

LP1 

IS  AVAILABLE. 

PAUSE 

INSURE  THE  DISK  CONTAINING  THE 
LP1 : SAMPLE 
MODEL  IS  AVAILABLE. 


PAUSE 


i _ 

INSURE  DISK 

■PfiUSS _ 

LP1 

IS  AVAILABLE. 
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The  following  display  informs  the  user  of  requirements 


regarding  the  objective  function  modification.  If  the  user 
had  selected  the  algorithm  to  perform  the  tableau 
modification,  this  sequence  would  not  be  displayed.  The 
display  following  the  instructions  is  the  objective  function 
as  entered  i n  Modul e  1 . 


OBJECTIVE  FUNCTION  MODIFICATION 

THE  OBJECTIVE  FUNCTION,  AS  ENTERED,  WILL 
BE  DISPLAYED  NEXT.  AFTER  THE  DISPLAY, 
YOU  WILL  BE  ASKED  TO  SELECT  THE  OPTION 
WHICH  WILL  TRANSFORM  THE  OBJECTIVE 
FUNCTION  INTO  THE  PROPER  TABLEAU  FORM 
FOR  THE  SIMPLEX  ALGORITHM. 

PAUSE 


OBJECTIVE  FUNCTION  MODIFICATION 

PRESENT  OBJECTIVE  FUNCTION 

TYPE!  TYPE2 

TYPE3 

M  i>  X(  2) 

I!  3) 

!UN  Z  =  ♦  3.000CE+G1  *  2,2300E+01  ♦ 

2.5000E+01 

PAUSE 

The  user  has  now  reviewed  the  objective  function  and 
must  select  the  designator  for  the  option  which  will  place 
the  objective  function  in  the  standard  LP  form  defined  in 
Chapter  I I  of  the  main  body.  As  shown  below,  option  III  was 
selected  and  the  feedback  concerning  this  selection  is 
presented.  The  user  may  then  review  the  entered  and  the 
correct  response  to  determine  the  reason  for  an  incorrect 
input. 


OBJECTIVE  FUNCTION  MODIFICATION 


TO  PLACE  THE  OBJECTIVE  FUNCTION  IN  THE 
PROPER  FORMAT  FOR  THE  SIMPLEX  ALGORITHM 
WHICH  OF  THE  FOLLOWING  SHOULD  BE  DONE? 

1.  ADD  -C<J>  TO  BOTH  SIDES  OF  EQUATION. 

2.  MULTIPLY  EQUATION  BY  -1  AND  THEN  ADD 
-C(J)  TO  BOTH  SIDES  OF  EQUATION. 

3.  NC  CHANGES  ARE  NECESSARY. 

WHICH  OPTION  IS  CORRECT?  Ill 
OPTION  #1  IS  INCORRECT. 

THE  PROPER  RESPONSE  WAS  OPTION  #2. 
PAUSE 


Regardless  of  user  input,  the  objective  function  is 
properly  modified  and  displayed  as  shown  below.  This  allows 
the  user  to  further  review  the  objective  function  and  its 
modification. 


AFTER  THE  PROPER  MODIFICATION,  THE 
OBJECTIVE  FUNCTION  FORM  IS: 

TYPEl  TYFE2  TYFE3 

X!  1/  If  2)  X(  3/ 

MAX  (-Z)  ♦  3.0000E+01  ♦  :.Z50CE*01  ♦  2.5000E+01  “0 

PAUSE 
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The  constraint  modification  sequence  is  si mi liar  to 


that  shown  above  for  the  objective  function.  The  user  is 
given  instructions  followed  by  the  display  of  the 
constraints  as  entered.  After  reviewing  these  constraints, 
the  options  which  the  user  may  later  select  are  shown. 


CONSTRAINT  MODIFICATION 

THE  CONSTRAINTS,  AS  ENTERED,  WILL  BE 
DISPLAYED  NEXT.  AFTER  THE  DISPLAY.  YOU 
WILL  BE  SHOWN  EACH  OF  THE  CONSTRAINTS 
INDIVIDUALLY  AND  ASKED  TO  SELECT  THE 
OPTION  WHICH  TRANSFORMS  THE  CONSTRAINT 
INTO  THE  PROPER  SIMPLEX  ALGORITHM  FORM. 

PAUSE 


SAMPLE  PROBLEM 

CURRENT  CONSTRAINTS 

TYPE  I 

type: 

TYPE3 

RHS 

K  1) 

:u  I; 

Y<  3) 

CN  NAME 

mmmmmimmtummtttimmmtmtmtmmmmm  i 

1  PERSON 

5.00000E+00 

a.oooooE+oo 

4.00000E+00  > 

:.ooogoet03 

2  EQUIP 

LOGpoOE+GO 

J. OOOOOE  +0G 

6.00000E+00  > 

!  .2C440E+03 

J  PLANES 

I.OOCOOE+OO 

i .  OGOOOE+GO 

i.omofMO  < 

4.00000E»02 

PAUSE 
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EACH  CONSTRAINT  WILL  BE  SEPARATELY 
DISPLAYED,  THEN  THE  FOLLOWING  OPTIONS 
WILL  BE  DISPLAYED  FOR  EACH  CONSTRAINT. 
YOU  WILL  SELECT  THE  OPTION  WHICH  WILL 
PLACE  THE  CONSTRAINT  IN  THE  PROPER 
SIMPLEX  ALGORITHM  FORM. 

1.  ADD  SLACK  VARIABLE  ONLY. 

2.  SUBTRACT  SURPLUS  VARIABLE,  ADD 
ARTIFICAL  VARIABLE. 

3.  ADD  ARTIFICAL  VARIABLE  ONLY. 

4.  MULTIPLY  BY  -1,  SUBTRACT  SURPLUS 
VARIABLE,  ADD  ARTIFICAL  VARIABLE. 

5.  MULTIPLY  BY  -1,  ADD  SLACK  VARIABLE. 

6.  MULTIPLY  BY  -1,  ADD  ARTIFICAL 
VARIABLE. 

PAUSE 


The  constraints  are  next  shown  separately.  This  allows 
the  user  to  study  the  constraint  individually.  When  the 
user  is  confident  that  the  proper  option  is  known,  the 
[RETURN!  key  or  CSPACE3  bar  is  pressed  allowing  the  display 
cf  the  options. 


TYPE1 

TYFE2 

TYPE? 

*<  1) 

((  2) 

t(  J) 

RHS 

CNi  1  PERSON 
PrtUSE 

5.00000c +00 

8.00O00E+00  MOOOOE+OO 

''  2.00000E+03 

The  user  inputs  the  desired  option  (option  C23  in  this 
case)  and  receives  immediate  feedback.  The  user  then  may 
continue  on  to  the  remaining  constraints  for  the  same 
sequence  of  steps. 
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CONSTRAINT  #  1 

1.  ADD  SLACK  VARIABLE  ONLY. 

2.  SUBTRACT  SURPLUS  VARIABLE,  ADD 
ARTIFICAL  VARIABLE. 

3.  ADD  ARTIFICAL  VARIABLE  ONLY. 

4.  MULTIPLY  BY  -1,  SUBTRACT  SURPLUS 
VARIABLE,  ADD  ARTIFICAL  VARIABLE. 

5.  MULTIPLY  BY  -1,  ADD  SLACK  VARIABLE. 

6.  MULTIPLY  BY  -1,  ADD  ARTIFICAL 
VARIABLE. 

WHICH  OPTION?  C23 
OPTION  #2  IS  CORRECT. 

PAUSE 


TYPE1 

TYPE2 

TYPE3 

1 

U  1) 

X<  2) 

U  3) 

F'HS 

CNi  2  EQUIP 

PAUSE 

6 . OOOOOE+OO 

3.00000E+00  6. OOOOOE+OQ 

>  L200OOE+O3 

Note  that  when  an  incorrect  response  is  entered,  the 
correct  response  is  shown  while  the  corresponding  function 
of  each  response  is  still  visible.  In  this  manner,  the  user 
may  review  any  mistakes  made  while  still  being  able  to 
review  the  available  options.  Also  note  that  the 
constraints  are  modified  properly  regardless  of  user  input. 
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CONSTRAINT  #  2 


1.  ADD  SLACK  VARIABLE  ONLY. 

2.  SUBTRACT  SURPLUS  VARIABLE,  ADD 
ARTIFICAL  VARIABLE. 

3.  ADD  ARTIFICAL  VARIABLE  ONLY. 

4.  MULTIPLY  BY  -1,  SUBTRACT  SURPLUS 
VARIABLE,  ADD  ARTIFICAL  VARIABLE. 

i 

5.  MULTIPLY  BY  -1,  ADD  SLACK  VARIABLE. 

6.  MULTIPLY  BY  -1,  ADD  ARTIFICAL 
VAR I ABLE . 

WHICH  OPTION?  El] 

OPTION  #1  IS  INCORRECT 
THE  PROPER  RESPONSE  WAS  OPTION  #2 
PAUSE 

The  third  constraint  is  now  examined  in  the  same  manner 
the  -first  two. 


TYFEl 

7YPE2 

TYPE3 

!<(  !! 

h  2) 

X(  3) 

RHS 

CM  I  r LANES 

i.OOOOOE+OO 

1 . OOOOOE+OO 

1. OOOOOE+OO  < 

A.0C0C0E+02 

PAUSE 
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CONSTRAINT  «  3 


1.  ADD  SLACK  VARIABLE  ONLY. 

2.  SUBTRACT  SURPLUS  VARIABLE,  ADD 
ARTIFICAL  VARIABLE. 

3.  ADD  ARTIFICAL  VARIABLE  ONLY. 

4.  MULTIPLY  BY  -1,  SUBTRACT  SURPLUS 
VARIABLE,  ADD  ARTIFICAL  VARIABLE. 

5.  MULTIPLY  BY  -1,  ADD  SLACK  VARIABLE. 

6.  MULTIPLY  BY  -1,  ADD  ARTIFICAL 
VARIABLE. 

WHICH  OPTION?  C13 


OPTION  #1  IS  CORRECT. 

PAUSE 


Next,  the  user  is  presented  instructions  on  the  next 
sequence  of  steps.  This  is  followed  by  the  display  of  the 
tableau  as  it  has  been  modified  by  the  previous  two 
sections,  the  objective  function  and  constraint  modification 
sections. 


THE  TABLEAU  AS  MODIFIED  PREVIOUSLY, 

WILL  BE  DISPLAYED. 

YOU  WILL  THEN  BE  ASKED  IF  THE  TABLEAU  IS 
IN  THE  CORRECT  FORM  FOR  THE  SIMPLEX 
ALGORITHM. 

PAUSE 
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TYPE1 

TYPE’ 

TYPES  SURPLS  SURPLS 

<(  It 

It  2) 

X<  3)  XI  4)  X<  S) 

080  FUNCTION 

-3.00Q00E+01 

-2.2S000E+C1 

-2.50000E+01  0. 00000E+00  O.OOOOOE+Ol 

CN  NAME 

VAR 

tmimmmmmmtmmmmmmmmmimmmm 

1  PERSON 

7 

5. OOOOOE+OO 

8. OOOOOE+OO 

4.0CCCOE+OO  -1. OOOOOE+OO  O.OOOOOE+OO 

2  EQUIP 

8 

6.  OOOOOE+OO 

3 . OOOOOE-OO 

S. 00000E+00  O.OOOOOE+OO  -1. OOOOOE+OO 

3  PLANES 

6 

I.OOOOOE+OO 

1. OOOOOE+OO 

1. OOOOOE+OO  O.OOOOOE+OO  O.OOOOOE+OO 

SLACK 

ARTIF 

ARTIF  CHS 

U  it 

X<  7) 

U  8) 

OBJ  FUNCTION 

O.OOOOOE+OO 

0. 00000E+00 

O.OOOOOE+OO  =  O.OOOOOE+OO 

CN  NAME 

VAR 

tmmmmmmttmummntutuummtmmmmm 

1  PERSON 

7 

O.OOOOOE+OO 

1. OOOOOE+OO 

O.OOOOOE+OO  *  2.00000E+03 

2  EQUIP 

8 

O.OOOOOE+OO 

0. OOOOOE+OO 

1.0000CE+00  =  I.20000E+03 

3  PLANES 

6 

1. OOOOOE+OO 

0. 00000E+00 

O.OOOOOE+OO  *  4.00000E+02 

PAUSE 

The  user  is  next  asked  for  a  response  concerning  the 
form  of  the  tableau.  This  input  is  followed  by  immediate 
feedback  concerning  the  accuracy  of  this  input.  Note  that 
this  and  the  subsequent  displays  concerning  the  form  of  the 
tableau  would  not  have  appeared  if  the  user  had  allowed  the 
program  to  perform  tableau  modification  without  user 
interface. 


IS  THE  TABLEAU  IN  THE  PROPER  FORM  FOR 
THE  INITIAL  PIVOT?  CY 3 

YOUR  RESPONSE  WAS  INCORRECT. 


ART IF I CAL  VARIABLES  HAVE  BEEN  ADDED,  YET 
THE  OBJECTIVE  FUNCTION  HAS  NOT  BEEN 
MODIFIED  (BIB  M)  TO  REFLECT  THIS. 

PAUSE 
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Further  instructions  are  presented  below  -followed  by 
the  display  o-f  the  tableau  as  modified  up  to  this  point. 


THE  TABLEAU  WILL  BE  DISPLAYED  AND  YOU 
WILL  BE  ASKED  TO  IDENTIFY  THOSE 
VARIABLES  WHICH  THE  BIS  M  METHOD  IS  TO 
BE  APPLIED. 

PAUSE 


SAMPLE  PROBLEM 

CURRENT  LP  MODEL:  MAXIMIZE  COST 

TYPEl 

TYPE2 

TYPE3 

SURPLS  SURPLS 

V.  1) 

U  2) 

X(  3) 

U  4)  ||  5) 

Oft)  FUNCTION 

-3.G0000E+01 

-2.25000E+01 

-2.50000E+01 

O.OCOOOE+OO  O.OOOOOE+Ol 

CN  NAME 

VAR 

imtmtmmitmmmmttmmttimmmitimmmm 

1  PERSON 

7 

5.00000E+00 

8. OOOOOE+OO 

4. OOOOOE+OO 

-1.0000CE+00  0. OOOOOE+OO 

2  EQUIP 

8 

6. OOOOOE+OO 

3.0000CE+00 

4. 00000E+00 

0. OOOOOE+OO  -1. OOOOOE+OO 

3  PLANES 

& 

1. OOOOOE+OO 

!. OOOOOE+OO 

1. OOOOOE+OO 

0. OOOOOE+OO  O.OOOOOE+OC 

SLACK 

ARTIF 

ARTIF 

RHS 

<(  6) 

XI  ?» 

II  8) 

OBJ  FUNCTION 

0.  OOOOOE+OO 

O.OO'.-'OOE+OO 

0. 09000E+O0 

*  0. OOOOOE+OO 

CN  NAME 

VAR 

iumtmmumumtttnmmitmmmttmumummt 

1  PERSON 

7 

0.0930CE+00 

l. OOOOOE+OO 

0. OOOOOE+OO 

*  2.000AOE+03 

2  ECUIP 

8 

o.eocooE+oo 

0. OOOOOE+OO 

> . oooooe+oo 

*  1 . 20000E+03 

3  PLANES 

6 

1. OOOOOE+OO 

0. 00000E+00 

0. 00000E+00 

*  4.00000E+02 

PAUSE 

The  user  is  now  asked  to  identify  those  variables  which 
require  modification  by  the  Big  M  method.  Note  that  the 
variable  subscript  is  entered  to  designate  the  selected 
variable.  The  input  of  C£>3  below  refers  to  variable  x (6>  of 
the  previously  displayed  tableau.  Again  feedback  and 
instructional  comments  are  provided  immediately.  The 
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following  display  also  requires  input  similiar  to  that 
discussed  above. 


The  instructions  below  are  followed  by  the  display  of 
the  tableau  as  modified  at  this  paint.  This  allows  the  user 
to  review  the  modifications  performed  in  the  previous  steps, 
□nee  the  user  has  reviewed  the  tableau,  the  [RETURN}  key  or 
[SPACE]  bar  is  depressed  to  allow  the  program  to  proceed. 


THE  TABLEAU  WILL  BE  DISPLAYED,  THEN  YOU 
WILL  BE  ASKED  IF  IT  IS  IN  THE  PROPER 
FORM  FOR  THE  INITIAL  PIVOT. 


SAMPLE  PROBLER 

CURRENT  LP  MODEL:  MAXIMIZE  COST 

TYPE  1 

TVPE2 

TYPE3 

SURPLS  SURPLS 

U  1 ) 

X!  2) 

X!  3) 

I<  4)  U  5) 

OBJ  FUNCTION 

■3.00000E+01 

-2.25000E+01 

-2.50000E+01 

0. OOOOOE+OO  O.OOOOOE+Ol 

CN  NAME 

VAR 

mtmmimttmmmmmmmmtmtmtmmtmttm 

1  PERSON 

7 

5.C0000E+00 

B.OOOOOE+OO 

4. OOOOOE+OO 

-1. OOOOOE+OO  0, OOOOOE+OO 

?  EQUIP 

8 

6.  OOOOOE+OO 

3. OOOOOE+OO 

A. OOOOOE+OO 

0. OOOOOE+OO  -1. OOOOOE+OO 

3  PLANES 

& 

1. OOOOOE+OO 

1. OOOOOE+OO 

1. OOOOOE+OO 

0. OOOOOE+OO  0. OOOOOE+OO 

SLACK 

ART1F 

ARTIF 

RHS 

X<  6! 

U  7) 

J(  3) 

GB j  FUNCTION 

0.  OOOOOE+OO 

-3.GG000E+02 

-3.000COE+02 

*  0. OOOOOE+OO 

CN  NAME 

VAR 

mmumtmmmtmmmttttmmtmtmmmtmmtt 

1  PERSON 

7 

O.OOOOOE+OO 

1 . OOOOOE+OO 

0. OOOOOE+OO 

=  2.00000E+03 

2  EQUIP 

S 

O.OOOOOE+OO 

o.ooeooE+oo 

1 . OOOOOE+OO 

=  I.20000E+03 

3  PLANES 

6 

!. OOOOOE+OO 

0. OOOOOE+OO 

0,  C'OOOOE+OO 

-  4.00000E+02 

PAUSE 

As  shown  below,  the  user  is  asked  again  whether  or  not 
the  tableau  is  ready  for  the  first  pivot.  The  opinion  of 
the  user  is  entered  and  the  corresponding  feedback  is 
presented. 


IS  THE  TABLEAU  IN  THE  PROPER  FORM  FOR 
THE  INITIAL  PIVOT?  EY3 

YOUR  RESPONSE  WAS  INCORRECT. 

THERE  IS  NO  INITIAL  BASIC  SOLUTION  SINCE 
THE  OBJECTIVE  FUNCTION  COEFFICIENTS  OF 
THE  ARTIFICAL  VARIABLES  ARE  NOT  ZERO. 

PAUSE 


Following  the  above  input  and  comments,  the  final 
modification  of  the  tableau  occurs.  As  shown  below,  the 
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next  step  is  the  display  of  the  initial  tableau.  Note  that 
the  above  sequence  of  steps  from  the  last  default  option 
display  to  this  point  Mould  not  have  been  performed  if  the 
user  had  selected  the  algorithm  to  perform  the  tableau 
modification. 


SAKPLE  PROBLEM 

SASIC  SOLUTION  «  1 

TYPE! 

TYPE2 

TYPE3  SURPLS  SURPLS 

X!  1) 

X!  2) 

X?  3)  X(  4)  It  5) 

OBJ  FUNCTION 

-3.27000E+03 

-3.27750E+03 

-2.97500E+03  3.00000E+02  3.00000E+02 

CN  NABE 

VAR 

mttmmmttmmtmmmttmmmmmmmmmmt 

1  PERSON 

7 

5.00000E+00 

B.OGOCOE+OO 

4.000C0E+0C  -i.OOOOOE+QO  O.OOOOOE+OO 

2  EQUIP 

0 

4.00000E+00 

3.0COOOErOO 

4.0C090E+00  O.OOOCOE+OO  -1.00000E+00 

3  PLANES 

& 

1.9OOOOE+0G 

1.00000E+00 

l.OCOOOE+OC  O.OOOOOE+OO  O.OOOOOE+OO 

SLACK 

ART1F 

ARTIF 

K  4) 

X(  7) 

X<  8)  RHS  '  • 

i  OBJ  FUNCTION 

0.00000c +00 

O.OOCOOE+OO 

0.00000E+00  =  -9. 60000E+05 

CN  NABE 

VAR 

immmtitmmmtmmmmmmtmtmmmmmtm 

1  PERSON 

7 

O.GOOOOE+OO 

l.OOOOOE+OO 

0.00000E+00  *  2.00000E+03 

2  EQUIP 

8 

0. 30000E+00 

O.OOOOOE+OO 

1.00000E+0C  *  1.20000E+03 

3  PLANES 

6 

I.GOOOOE+OO 

O.OOOOOE+OO 

e.OOOOOE+OO  =  4.00000E+02 

After  this  tableau  display,  the  user  who  has  elected  to 
identify  optimal,  unbounded  or  infeasible  solutions  will  be 
asked  the  following  four  questions.  Each  question  is 
displayed  separately  and,  as  shown,  i nstruct i onal  comments 
accompany  the  user  input.  Note  that  prior  to  this  input, 
CT1  mav  be  entered  allowing  the  user  to  reexamine  the 


tableau 


TO  REVIEW  TABLEAU,  ENTER  T 


WAS  THE  PREVIOUS  SOLUTION  UNBOUNDED 
BASED  UPON  THE  NEXT  PIVOT  COLUMN  (ROW) 
BEING  THE  COLUMN  (ROW)  WITH  THE  LARGEST 
NEGATIVE  Z(J)-C(J>  <B(J)>  VALUE?  CY1 

YOUR  RESPONSE  WAS  INCORRECT 
THE  LAST  TABLEAU  WAS  BOUNDED 

THE  CURRENT  TABLEAU  IS  BOUNDED  SINCE 
ALL  THE  A <  I ,  J)  VALUES  IN  COLUMN  2  ARE 
NOT  NEGATIVE  OR  ZERO. 

PAUSE 


The  user  may  elect  to  have  the  basic  variable  values 
and  objective  -function  value  displayed  or  to  continue 
without  this  display.  As  shown,  the  user  elected  not  to 
display  the  values  by  entering  a  C33. 


WOULD  YOU  LIKE  THE  BASIC  SOLUTION  VALUES 
DISPLAYED? 

1. 

DISPLAY  ON  SCREEN 

2. 

DISPLAY  ON  PRINTER 

3. 

DO  NOT  DISPLAY 

WHICH  OPTION?  C33 

The  next  four  displays  request  the  user  to  enter  the 
selected  pivot  column  and  row.  Each  input  is  accompanied  by 
appropriate  feedback.  As  shown,  column  number  3  was 
selected  initially  ,  but  did  not  coincide  with  the  algorithm 
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choice.  At  that  point ,  the  user  must  select  the  option 
representing  the  pivot  column  to  be  used. 


WHICH  COLUMN  CONTAINS  THE  CANDIDATE 
ENTERING  VARIABLE? 

COLUMN  -  C33 


YOUR  SELECTION  OF  PIVOT  COLUMN  DOES  NOT 
MATCH  THAT  OF  THE  ALGORITHM. 

WHICH  SELECTION  DO  YOU  WISH  TO  USE? 

1.  YOUR  SELECTION  COLUMN  *  3 

OR 

2.  ALGORITHM  SELECTION  COLUMN  *  2 

WHICH  OPTION?  123 


Based  upon  the  above  pivot  column  selection,  the  ratios 
for  the  column  are  calculated  and  displayed.  The  user  then 
enters  the  number  of  the  row  which  is  felt  to  be  correct  for 
the  pivot  element.  If  the  user  selection  had  not  matched 
the  algorithm  selection,  the  user  would  have  been  al lowed  to 
change  the  selection  as  was  shown  above  for  the  column 
selection. 
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RATIOS  FOR  COLUMN  2 


ROW  1  =  2.50000E+02 

ROW  2  =  4 . OOOOOE+02 

ROW  3  *  4. OOOOOE+02 

WHICH  ROW  CONTAINS  THE  CANDIDATE 
LEAVING  VARIABLE? 

ROW  «  til 


Once  the  first  pivot  has  been  completed,  the  resulting 
tableau  is  displayed. 


SAMPLE  PROBLEM 

SASIC  SOLUTION  •  2 

TYPE1 

TYPES 

TYPE3  S'JRPLS  3URPLS 

I!  1) 

XL  2) 

It  3)  It  4)  It  5) 

|  OBJ  FUNCTION 

•I.22154E+03 

O.OOOOOE+OO 

-1.33425E+03  -1.09487E+02  3. 00300E+02 

CN  NAME 

VAR 

mmmmtttmmttmtmtmmmummmmtmtmm 

1  PERSON 

2 

6.2500GE-01 

l.UOOCOE+90 

5.CC000E-01  -I . 23000E-01  O.OOOOCE+OO 

2  E9UIP 

8 

4. 1250CE+00 

O.GOOOOE+OO 

4. 50000E+00  3.75000E-5I  -1.00000E+90 

3  PLANES 

4 

3.75000E-01 

O.COOCOE+OO 

5. OOOOOE-Ol  1.25000E-01  O.OOJCOE+OO 

SLACK 

ARTIF 

ARTIF 

It  4) 

3<  7', 

It  8)  RHS 

OBJ  FUNCTION 

0.G0000E+00 

4.09437E+02 

O.OCOooE+OO  *  -1.40425E+05 

CN  NANE 

VAR 

mtmmmmttmtmmtmmmmtmummtmtmmt 

1  PERSON 

•> 

0-000001*00 

1.25000E-01 

0. OOOOOE+OO  *  2.50000E+02 

2  EQUIP 

8 

0.00000E+09 

-3.75000E-0! 

1.00090E+00  -  4.50000E+02 

3  PLANES 

b 

I . OOOOOE+OO 

-i.25OO0E*0i 

O.OOOOOE+OO  *  1,50000c +02 

* 
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A-f ter  the  tableau  has  been  reviewed,  the  same  sequence 
of  questions,  displays,  and  feedback  are  repeated  for  the 


last  tableau  calculated.  This  sequence  is  shown  below. 


TO  REVIEW  TABLEAU,  ENTER  T 


WAS  THE  PREVIOUS  TABLEAU  OPTIMAL?  CN3 

YOUR  RESPONSE  WAS  CORRECT 
THE  LAST  TABLEAU  WAS  NOT  OPTIMAL 

PAUSE 


TO  REVIEW  TABLEAU,  ENTER  T 


IS  THE  SOLUTION  FEASIBLE?  CYI 

YOUR  RESPONSE  WAS  INCORRECT 
THE  LAST  TABLEAU  WAS  INFEASIBLE 


THE  SOLUTION  IS  INFEASIBLE  SINCE  THE 
ARTIFICIAL  VARIABLE  X (  8)  IS  AT  A 
POSITIVE  LEVEL. 

PAUSE 


TO  REVIEW  TABLEAU,  ENTER  T 


WAS  THE  PREVIOUS  SOLUTION  DEGENERATE? C Y 3 

YOUR  RESPONSE  WAS  INCORRECT 
THE  LAST  TABLEAU  WAS  NOT  DEGENERATE  j 


THE  CURRENT  TABLEAU  IS  NOT  DEGENERATE 
SINCE  ALL  BASIC  VALUES  ARE  AT  A  NON-ZERO 

LEVEL. 

PAUSE 
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RATIOS  FOR  COLUMN  3 

ROW  i  * 

5 . 00000E+02 

ROW  2  * 

1 . OOOOOE+02 

ROW  3  * 

3.00000E+02 

WHICH  ROW  CONTAINS  THE  CANDIDATE 

LEAVING 

VARIABLE? 

ROW 

-  C2D 

YOUR  PIVOT  ROW  SELECTION  HATCHES  THE 
ALGORITHM  SELECTION. 


PAUSE 


The  following  tableau  is  the  result  of  the  second 


pi vot . 


SAMPLE  PROBLEM 
BASIC  SOLUTION  I  3 


TYPE1  TYPE2  TYPE3  SURPLS  SURPLS 

XI  I)  U  2)  XI  3)  XI  A)  X!  5) 

OBJ  FUNCTION  3.33337ErOO  0.0COOOE*OO  O.OOOOOE+OO  1.64447Er00  3.05554E+00 

cn  name  var  mmmmmmmmtmmmmtmttmmmumumm 

1  PERSON  2  1.44447E-01  1.00000E+00  O.OOOUOE+OO  -1.44447E-01  1.11111E-01 

2  E8UIP  3  9. lt»667E-Cl  O.OOOOOE+OO  1 . OOOOOE+OO  S.33333E-02  -2.22222E-01 

3  PLANES  4  -3.33333E-02  O.OOCOOE^OO  O.COOOOE+OO  S.33333E-02  1.11111E-91 


SLACK  ARTIF  ARTIF 

XI  4)  XI  7)  a  8)  RHS 

OBJ  FUNCTION  O.OCOOOE*OC  I.98333E+02  2.96944E+02  =  -7.00000E+03 

cn  name  var  tmummmmtmttmtmmmmtmmimtmmtumt 

1  PERSON  2  0.00C00E+00  1.44447E-01  -I. 1111 IE-01  =  2.0000UE+02 

2  EOUIP  3  O.OCOOOE+OO  -8.33333E-02  2.22222E-01  =  1 . OOOOOE+02 

3  PLANES  4  1.00000E+00  -B.33333E-02  -I.lUISE-01  *  1 . OOOOOE+02 


The  sequence  of  displays  which  follows  is  the  same  as 
above  with  a  few  exceptions.  Since  it  is  found  in  the  next 


14: 


the  user  i  s 


display  that  the  last  tableau  was  optimal, 
questioned  concerning  the  existence  of  multiple  optimal 
solutions  in  addition  to  the  previous  questions. 
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TO  REVIEW  TABLEAU,  ENTER  T 


ARE  THERE  MULTIPLE  OPTIMAL  SOLUTIONS? 
CY3 

YOUR  RESPONSE  WAS  INCORRECT 
THERE  ARE  NO  MULTIPLE  SOLUTIONS. 


THIS  IS  SINCE  ALL  NON-BASIC  VARIABLES 
HAVE  A  VALUE  OF  OTHER  THAN  ZERO  IN  THE 
OBJECTIVE  FUNCTION  ROW.  IF  A  ZERO  VALUE 
WAS  PRESENT  FOR  A  NON-BASIC  VARIABLE, 
INCREASING  THE  VALUE  OF  THIS  VARIABLE 
WOULD  NOT  CHANGE  THE  Z  VALUE. 

PAUSE 


Since  an  optimal  solution  has  been  obtained,  the  pivot 
element  selections  are  no  longer  required. 

The  final  tableau  display  is  repeated  following  the 
above  questions  since  an  optimal  solution  has  been  obtained. 
This  also  occurs  when  unbounded  or  infeasible  solutions 
exist.  This  is  followed  by  the  opportunity  to  display  the 
basic  values  and  objective  function  value.  Option  Til  has 
been  selected  for  screen  output  as  shown  below. 
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BASIC  SOLUTION  t  3 
FINAL  TABLEAU  -  OPTIMAL 


TYPE1  TYPE2  TYPE3  SURPLS  SURPLS 

It  1)  II  2)  II  3)  It  41  It  3) 

OBJ  FUNCTION  3.33337E+00  O.OOOOOE+OO  O.OOOOOE+OO  I.44447E+00  3.05554E+00 

cn  mane  var  ttmmmmmmimmmtmmmmmmmtmmmm 

1  PERSON  2  1.46447E-01  l.OOOOOE+OO  O.OOOOOE+OO  -1.46447E-0!  1.1S111E-01 

2  ESUtP  3  9. 14447E-01  O.OOOOOE+OO  l.OOOOOE+OO  8.33333E-02  -2.22222E-0! 

3  PLANES  4  -3. 33333E-02  O.OOOOOE+OO  O.OOOOOE+OO  8.33333E-02  UUUE-Ol 


SLACK  ARTIF  ARTIF 

It  4)  It  79  It  8)  RHS 

OBJ  FUNCTION  O.OOOOOE+OO  2.98333E+02  2.94944E+02  =  -7.00000E+03 

cn  name  var  titititttttttiitmmummmmummiitmmmmmttt 

1  °ERSON  2  O.OOOOOE+OO  1.44447E-01  -I.iiillE-Ot  =  2.00000E+02 

2  S8UIP  3  O.OOOOOE+OO  -8.33333E-02  2.22222E-01  =  1.00000E+02 

3  PLANES  4  l.OOOOOE+OO  -8.33333E-02  -l.lllllE-01  «  1.00000E+02 
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The  user  nay  alnct  to  perform  additional  pivots  at  this 
point.  This  has  bnnn  providnd  to  allot*  thn  user  to  rncovnr 
•from  improper  pivot  element  selections  resulting  in  an 
in-feasible  solution.  If  this  option  is  selected,  the 
ability  to  perform  dual  pivots  is  automatically  provided. 
As  shown,  this  option  was  not  elected. 


WOULD  YOU  LIKE  TO  PERFORM  FURTHER  PIVOTS 
ON  THIS  TABLEAU?  CN1 


The  results  of  the  problem  must  be  saved  to  disk  to 
allow  for  sensitivity  analysis.  Since  the  analyst  would 
like  to  further  study  the  above  solution,  a  IY1  has  been 
entered . 


TO  PERFORM  SENSITIVITY  ANALYSIS  ON  THIS 
MODEL,  THE  INFORMATION  OF  THE  CURRENT 
TABLEAU  MUST  BE  SAVED  TO  DISK. 


DO  YOU  WISH  TO  SAVE  THIS  FILE  TO  DISK7CY3 
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The  sequence  shown  below  requires  the  input  of  a 
diskname: filename  of  the  disk  and  file  in  which  the  results 
are  to  be  saved.  The  subsequent  displays  prompt  the  user  to 
place  the  correct  disk  in  a  drive. 


Note  that  this  prompt  is  for  disk  LP2  and  not  LPJ.  The 
users  of  a  one-drive  system  must  remove  LP1  and  insert  LP2 
at  this  time. 


INSURE  DISK 

LP2 

IS  AVAILABLE. 

PAUSE 

One  disk-drive  users  must  reinsert  disk  LP1 . 
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INSURE  THE  DISK  TO  CONTAIN  THE  FILE 


LP 1 i 5AMCM2 


IS  AVAILABLE. 


PAUSE 


The  user  must  insure  the  following  question  is  answered 
correctly.  If  entered  as  shown  below  when  a  file  already 
exists  on  LP1  with  the  name  SAMCM2,  an  output  error  will 
cause  the  loss  of  the  solution  parameters  in  memory. 


HAS  THI3  DISK: FILENAME  COMBINATION  BEEN 
USED  PREVIOUSLY? 

< ARE  YC  I  UPDATING  A  CURRENTLY  EXISTING 

FILE?) 


(Y/N)  CN1 


The  prompt  below  advises  the  user  that  the  file  of  the 
original  model  input  into  Module  1  must  be  available  at  this 
time. 


INSURE  THE  DISK  CONTAINING  THE 


LP1* SAMPLE 


MODEL  IS  AVAILABLE. 


PAUSE 
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I-f  another  LP  model  were  available,  the  user  could 
enter  CY1  and  would  be  asked  to  input  the  diskname: filename 
of  the  model  desired.  Since  no  other  models  are  available, 
CN3  was  entered. 


The  last  display  of  this  module  is  shown  below.  This 
provides  the  user  with  the  required  operating  system 
commands  to  return  to  Module  t.  The  user  is  cautioned  that 
the  period  following  STARTUP  must  be  entered  or  Module  1 
will  not  execute. 
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TO  ENTER  THE  LP  DATABASE  MODULES 

TVPE 

X 

LP1 s  SYSTEM. STARTUP. 


The  above  sequence  has  given  an  outline  of  the  use  of 
Module  2.  Not  all  options  were  employed  in  the 
demonstration;  however,  those  able  to  perform  the  above 
steps  should  not  encounter  problems  in  other  methods  of 
appl icati on. 

The  sequence  of  steps  normally  used  in  problem  solution 
and  analysis  would  lead  the  analyst  now  to  the  sensitivity 
module.  Since  the  method  of  access  and  use  of  Module  4,  the 
sensitivity  analysis  program,  is  identical  following,  both 
Modules  2  and  3,  this  explanation  will  be  presented  after 
the  Module  3  demonstration. 
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Modul e  3.  The  method  of  accessing  Module  3  when  Module 
1  has  terminated  was  briefly  noted  earlier.  It  was  shown 
that  to  enter  Module  2,  the  user  would  enter  CX3  and 
[LP1:ED1.  The  commands  for  entering  Module  3  are  CX3  and 
[LP2sTAB].  Note  that  no  [RETURN]  is  required  fallowing  the 
CXI.  Also  note  that  the  command  CLP2:TAB3  communicates  that 
the  file  TAB  on  disk  LP2  be  executed.  This  requires  that 
disk  LP2  be  accessible  when  entering  the  above  commands. 
After  these  commands  have  been  entered,  the  following  header 
will  be  displayed.  This  confirms  entry  into  Module  3. 


PAUSE 


******************** 

LINEAR 

PROGRAMMINS 

PROBLEM 

SOLVER 

MODULE 

MODULE  3 

******************** 


Once  either  the  [RETURN]  key  or  the  [SPACE]  bar  has 
been  depressed,  the  user  is  informed  to  insert  disk  LP1. 


One-drive-system  users  must  carefully  read  these  prompts  and 
insure  the  required  disk  is  available  to  avoid  output  errors 


INSURE  DISK 

LP1 

IS  AVAILABLE. 

PAUSE 

The  user  is  presented  the  diskname: -filename  of  the  file 
currently  identified  as  the  model  to  be  studied.  Should  the 
user  not  want  to  study  the  file  shown,  an  CN3  may  be  entered 
and  the  user  may  then  identify  the  file  desired.  As  shown, 
the  file  currently  identified  is  the  one  desired  so  a  CY3 
was  entered. 


The  cne-drive  system  user  must  now  reinsert  disk  LP2. 


INSURE  DISK 

LP2 

IS  AVAILABLE. 

PAUSE 

The  default  options  are  displayed  next  with  the 
programmer — defined  defaults  shown  on  the  right.  The  first 
option  is  the  only  one  which  is  not  available  in  Module  2. 
The  selection  of  option  1  would  change  the  default  to  "DUAL" 


152 


and  the  module  would  then  convert  the  primal  LP  model  into 
its  dual  model.  This  transf or mat ion  would  be  performed 
without  user  interface;  however,  the  user  would  be  required 
to  input  a  new  diskname: filename  which  the  dual  problem 
formulation  would  be  stored  under.  Although  this  option  was 
not  selected  for  the  demonstration,  it  may  be  useful  in 
reducing  the  number  of  iterations  required  to  salve  a 
selected  LP  problem. 

For  this  demonstration,  option  C3D  has  been  entered  to 
show  that  the  output  format  for  the  printer  is  identical  to 
that  used  in  Module  2  for  screen  output. 


DEFAULT  OPTIONS 
ENTER  OPTION  NUMBER  TO  CHAN6E 


1.  PROBLEM  TO  SOLVE  PRIMAL 

2.  SOLVE  BY  DUAL  PIVOTS  N 

3.  OUTPUT  LOCATION  SCREEN 

4.  OUTPUT  FORMAT  F  FORMAT 

5.  TABLEAUS  TO  BE  DISPLAYED 

INITIAL  Y 

INTERMEDIATE  N  «*  1 

FINAL  Y 

6.  NO  CHANGES 


*  SEE  DOCUMENTATION  FOR  EXPLANATION 
WHICH  OPTION  (ENTER  1-6)  ?  C33 


As  shown  below,  the  output  default  value  reflects  the 
previous  change.  One  must  insure  at  this  time  that  the 
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printer  is  turned  on  and  is  in  a  mode  Mhich  allows  printing. 
Otherwise,  the  system  will  wait  indefinitely  for  the  printer 


to  accept  information.  To  insure  no  confusion  exists,  the 
output  location  refers  to  the  device  to  which  tabular  data 
will  be  transmitted.  This  selection  has  no  effect  on  the 
location  of  user  prompts  and  instructions.  These  will 
always  be  displayed  on  the  screen. 

The  option  referring  to  which  tableaus  are  to  be 
displayed  will  be  demonstrated  below.  As  an  initial 
default,  a.11  tableaus  are  to  be  displayed;  however,  since 
these  tableaus  were  shown  in  the  Module  2  demonstration, 
only  the  final  tableau  will  be  requested  here.  To  change 
these  defaults,  option  £52  was  entered. 


r-—  '■  . — . . . . . .  ■ 

DEFAULT  OPTIONS 

ENTER  OPTION  NUMBER  TO 

CHANGE 

1.  PROBLEM  TO  SOLVE 

PRIMAL 

2.  SOLVE  BY  DUAL  PIVOTS 

N 

3.  OUTPUT  LOCATION 

PRINTER 

4.  OUTPUT  FORMAT 

F  FORMAT 

5.  TABLEAUS  TO  BE  DISPLAYED 

INITIAL 

Y 

INTERMEDIATE 

N  *  1 

FINAL 

Y 

6.  NO  CHANGES 

i 

j*  SEE  DOCUMENTATION  FOR  EXPLANATION 

WHICH  OPTION  (ENTER  1- 

•6)  ?  C51 
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The  user  is  asked  the  sequentially  shown  questions 


below.  Since  only  the  -Final  tableau  is  desired,  the 
responses  CN3,  CN3,  CY3  were  entered.  If  the  user  had 
desired  to  see  a  selected  number  of  the  intermediate 
tableaus,  a  CY3  would  have  been  entered  for  the  second 
response.  The  user  would  then  be  asked  to  enter  a  value  for 
the  length  of  cycle  between  intermediate  tableau  output.  If 
a  C23  were  entered,  the  second,  fourth,  sixth,  etc. 
intermediate  tableaus  would  be  displayed  on  the  selected 
device. 


PROBLEM  SOLVER  OPTION  SELECTION 
WHICH  TABLEAUS  WOULD  YOU  LIKE  DISPLAYED0 
INITIAL  TABLEAU?  <Y/N>  IN] 
INTERMEDIATE  TABLEAUS?  (Y/N)  IN] 
FINAL  TABLEAU?  <Y/N>  CY3 


As  shown  below,  the  option  5  default  value  reflects  the 
changes  to  this  point.  Once  the  user  has  made  all  desired 
changes,  option  163  is  entered  to  continue. 
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DEFAULT  OPTIONS 
ENTER  OPTION  NUMBER  TO  CHANGE 


1.  PROBLEM  TO  SOLVE  PRIMAL 

2.  SOLVE  BY  DUAL  PIVOTS  N 

3.  OUTPUT  LOCATION  PRINTER 

4.  OUTPUT  FORMAT  F  FORMAT 

5.  TABLEAUS  TO  BE  DISPLAYED 

INITIAL  N 

INTERMEDIATE  N  =  0 
FINAL  Y 

6.  NO  CHANGES 

t 

*  SEE  DOCUMENTATION  FOR  EXPLANATION 

WHICH  OPTION  (ENTER  1-6)  ?  C6I  — 

The  user  is  next  prompted  to  insert  the  disk  which 
contains  the  original  model.  Fallowing  that  action,  the 
user  is  informed  that  disk  LP2  must  be  available. 


After  the  C RETURN D  key  or  I SPACE!  bar  is  depressed  in 
the  above  prompt,  the  program  begins  the  -formulation  and 
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iterative  solution  process 


Since 


the  initial 


and 


intermediate  tableaus  were  not  requested,  the  next  display 
is  the  final  tableau.  This  tableau  will  be  displayed  on  the 
printer  in  the  format  identical  to  that  of  Module  2.  The 
tableau  is  shown  below. 


SAMPLE  PROBLEM 

SASIC  SOLUTION  «  3 

FINAL  TABLEAU  -  OPT INAL 

TYPE! 

TYPE2 

T7PE3 

SURFLS 

SURPLS 

XI  li 

XI  2) 

XI  3) 

XI  4) 

XI  5) 

OBJ  FUNCTION 

3.33337 

.00000 

.00000 

1.66667 

3.05554 

CN  NAME  VAR 

mmmmttmtmmmmmtmmttmtmmmtmtmi* 

1  PERSON  2 

. 16667 

1.00000 

.OCCOO 

-.16467 

.11111 

2  E3UIP  i 

.91667 

.00000 

1.00000 

.08333 

-.22222 

3  PLANES  6 

-.08333 

.00000 

.00000 

.08333 

,mu 

SLACK 

ARTIF 

ARTIF 

V.  6) 

XI  7) 

XI  B) 

RHS 

OBJ  FUNCTION 

.00000 

293.33300 

296.94400  » 

-7000.00000 

CN  NANE  VAR 

tmmmmmtmmtmmmtmmmmmmmmtmm 

1  PERSON  2 

.00000 

.16667 

-.inn  = 

200.00000 

| 

2  EQUIP  3 

.00000 

-.08333 

100. OCCOO 

3  PLANES  4 

1.00000 

-.08333 

-.11111  = 

100.000O0 

The  user  is  asked  whether  or  not  the  basic  variable 
values  and  objective  function  value  are  to  be  displayed. 
Again,  to  show  the  printer  output  format,  a  C23  has  been 
entered  followed  by  the  output  received. 
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WOULD  YOU  LIKE  THE  BASIC  SOLUTION  VALUES 
DISPLAYED? 

1. 

DISPLAY  ON  SCREEN 

2. 

DISPLAY  ON  PRINTER 

3. 

DO  NOT  DISPLAY 

WHICH  OPTION?  L21 

SAMPLE  PROBLEM 
BASIC  SOLUTION  I  3 

TYP£2  -  U  2)  =  200.00000 

TYPES  =  XT  3>  =  100.00000 

SLACK  -  U  b)  •  100.00000 

l-  -7000.00000 


The  user  must  next  respond  if  sensitivity  analysis  will 
be  performed  on  the  solution.  If  so,  a  CY]  is  entered 
followed  by  a  request  for  a  diskname: f i 1 ename  to  which  the 
solution  parameters  of  Module  3  will  be  saved.  As  shown 
below,  CLP1:SAMCM33  has  been  entered  with  CN3  entered  to 
show  no  corrections  are  needed  on  the  filename.  The  user 
must  be  careful  not  to  use  a  previously  used 
di sknamesf i 1 ename  of  a  file  which  is  still  required.  If  a 
previously  used  name  has  been  entered  (for  example 
LP1:SAMC112  from  Module  2),  this  would  cause  the  previous 
file  to  be  destroyed. 
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TO  PERFORM  SENSITIVITY  ANALYSIS  ON  THIS 
MODEL,  THE  INFORMATION  OF  THE  CURRENT 
TABLEAU  MUST  BE  SAVED  TO  DISK. 


DO  V  i  WISH  TO  SAVE  THIS  FILE  TO  DISK? 

tY3 


SAVE  LP  MODEL  TO  DISK 

ENTER  THE  DISK  DRIVE  NUMBER  AND  FILE 
NAME  YOU  WANT  THE  CURRENT  TABLEAU  OF 
SAMPLE  PROBLEM  SAVED  UNDER. 

ENTER  EXACTLY  AS  FOLLOWS 
DISK  DRIVE: FILENAME 

EG.  #4: FILENAM 

THE  DRIVE: FILENAME  MUST  BE  10  CHARACTERS 

OR  LESS. 

DO  NOT  USE  THE  SAME  NAME  USED  WHEN  THE 
ORIGINAL  MODEL  WAS  ENTERED. 

DISK: FILENAME  -  CLP1 : SAMCM33 

ARE  CORRECTIONS  NEEDED?  CNI 


The  following  two  messages  reference  disk  availability 
and  should  be  carefully  read,  especially  for  the 
one-dri ve— system  users. 


INSURE  DISK 

LP2: 

IS  AVAILABLE. 

PAUSE 
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INSURE  THE  DISK  TO  CONTAIN  THE  FILE 


LP 1 : S AMCM3 


IS  AVAILABLE 


PAUSE 


An  IN]  has  been  entered  below  signifying  that  the 
diskname:f i lename  combination  has  not  been  used  previously. 
If  one  wishes  to  overwrite  an  old  file,  one  may  enter  the 
previously  used  diskname: filename  above  and  a  LY1  below  to 
accomplish  this. 


HAS  THIS  DISK: FILENAME  COMBINATION  BEEN 
USED  PREVIOUSLY? 

iARE  YOU  UPDATING  A  CURRENTLY  EXISTING 

FILE?) 


<Y/N>  INI 


The  user  is  again  prompted  to  insure  the  availability 
of  specific  disks  and  files. 


INSURE  THE  DISK  CONTAINING  THE 


LP1: SAMPLE 


MODEL  IS  AVAILABLE. 


PAUSE 


INSURE  THE  DISK  TO  CONTAIN  THE  FILE  FOR 


LP1 s  SAMCM3 
IS  AVAILABLE. 

PAUSE 


1 _ 

- 1 

INSURE  DISK 

PAUSE 

LP2 

IS  AVAILABLE. 

The  user  may  specify  that  another  model  be  solved  at 
this  time  by  entering  CYJ  below.  This  would  then  be 
-followed  by  a  di skname: f i 1 ename  input  of  the  desired  model. 
This  allows  the  user  to  enter  several  models  with  Nodule  1 
and  then  transition  to  Nodule  3  and  solve  all  the  models 
without  repeated  moves  between  modules.  This  is  the 
recommended  procedure  for  a  multiple  problem  solving 
session. 

Since  another  model  does  not  currently  exist,  CN3  has 
been  entered  followed  by  a  prompt  for  disk  LP2. 


MOULD  YOU  LIKE  TO  STUDY  ANOTHER  MODEL 
WHICH  HAS  BEEN  SAVED  TO  DISK?  CN3 


INSURE  DISK 

LP2 

IS  AVAILABLE. 

PAUSE 

The  last  inputs  required  in  this  module  are  those 
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commands  which  cause  the  transition  to  Modulo  1.  Ths 
commands  CX3  and  CLP1:SYSTEM. STARTUP. 3  ars  entered  with 
control  being  returned  to  Module  1.  From  that  point, 
instructions  on  the  commands  to  enter  any  module  may  be 
requested. 


The  next  section  will  discuss  the  sensitivity  analysis 
module.  Module  4,  and  its  method  of  access  and  use. 


>2 


Hadula  4.  This  module  can  only  be  used  after  a  data 
base  has  been  established  using  Modules  2  or  3.  Upon 
completion  of  those  modules,  you  will  be  directed  to  type 
CXI  (execute)  followed  by  CLP2sSENl.  When  this  has  been 
done  the  following  page  will  appear. 


Four  different  sensitivity  analysis  options  are 
available.  The  first  selection  does  right-hand-side  ranging 
and  determines  the  associated  value  of  z.  The  second  option 
does  constraint  coefficient  and  objective  function 
coefficient  ranging.  The  third  selection  allows  multiple 
changes  to  the  original  problem  and  finds  a  new  optimal 
solution  if  desired.  The  fourth  option  finds  a  new  optimal 
solution  after  a  new  constraint  or  variable  has  been  added. 


163 


DO  YOU  WANT  THE  OUTfjl  TO  GO  TO* 

S) CREEN 
P)RINTER 
OR 

B)  OTH 

SELECT  S,  P,  OR  B 

ESI 


Output  is  available  on  the  screen  or  the  printer  or 
both  simultaneously  if  desired.  The  letter  preceeding  the 
choice  must  be  entered. 


ENSURE  DISK  LP2s  IS  AVAILABLE 

PAUSE 


Disk  LP2:  contains  a  file  which  holds  the  name  of  the 


current  data  file.  This  disk  must  be  available  or  an 


execution  error  will  occur.  This  is  fatal 


THE  CURRENT  DATA  FILE  IS 


LP2: SAMPLE 

DO  YOU  WISH  TO  USE  THIS  TABLEAU 

CYD 

The  file  name  read  from  LP2:  is  shown.  If  a  different 
file  name  is  desired,  enter  N.  The  program  will  then 
request  the  new  file  name.  The  new  file  name  must  then  be 
entered. 


The  disk  containing  the  data  file  must  be  present  to 
avoid  a  fatal  execution  error. 
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The  program  disk,  LP2,  must  be  returned  if  it  had  been 


removed . 


**************************************** 

RIGHT  HAND  SIDE  RANGE  LIMITS 
CONSTRAINT  #  1 

ORIGINAL  RIGHT  HAND  SIDE  -  2000.00000 

LOWER  BOUND  =  800.00000 

UPPER  BOUND  -  3200.00000 

**************************************** 

AT  THE  LOWER  BOUND — AT  THE  UPPER  BOUND 


X  <2)  » 

. 000 oo 

X  (2)  * 

400.00000 

X  (3)  * 

200.00000 

X  <3)  = 

. OOOOO 

X  <8)  » 

200.00000 

X  (8)  = 

.OOOOl 

Z 

-5000.00000 

Z 

-9000.00000 

PAUSE 

Output  from  selection  1  is  shown.  A  similar  amount  of 


data  is  presented  for  each  constraint 


**********************************SI**** 


COEFFICIENT 

LOWERLIMIT 

UPPERLIMIT 

AU, 1) 

sc 

NO  LIMIT 

7.00000 

A(l, 2) 

3S 

5. OOOOO 

NO  LIMIT 

A  <  1 , 3) 

= 

1 . 33333 

8.88884 

A (2, 1 ) 

= 

NO  LIMIT 

7.09093 

A  <2, 2) 

= 

-6.00000 

4.80000 

A(2, 3) 

5.03881 

NO  LIMIT 

A  <3, 1 ) 

SC 

NO  LIMIT 

NO  LIMIT 

A<3, 2) 

= 

NO  LIMIT 

1.50000 

A(3, 3) 

as 

NO  LIMIT 

2.00000 

PAUSE 


I-f  option  2  had  been  selected,  the  same  data  input 
routine  would  have  been  encountered.  The  constraint 
coeff icient  ranging  is  shown. 


***************************?************ 

COEFFICIENT 

LOWERLIMIT 

UPPERLIMIT 

C(l>  » 

26. 6 ‘->660 

NO  LIMIT 

C<2)  * 

12.50000 

42.50020 

C<3)  * 

11.25010 

28.63640 

PAUSE 

The  objective  -function  coefficient  ranging  is  presented 
on  a  separate  page. 
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THIS  PROGRAM  ACCEPTS  MULTIPLE  CHANGES 
TO  A  FINAL  TABLEAU  AND  CHECKS  WHETHER 
OR  NOT  THE  CURRENT  SOLUTION  IS  OPTIMAL 
FOR  THE  NEW  PARAMETERS 

PAUSE 


If  option  3  had  been  selected,  the  caption  shown  above 
would  appear  -following  the  data  input  routine. 


SELECT  THE  PARAMETERS  TO  BE  CHANGED 

1)  C(J) 

2)  A  ( I ,  J ) 

3)  B  < I > 

4)  CHANGES  COMPLETE 

5)  RETURN  TO  MAIN  MENU 

Z21 


Option  3  allows  changes  to  any  or  all  coefficients  of 
the  original  problem.  After  each  type  of  change  (1,  2,  or  3 
above)  the  menu  is  presented.  The  choice  shown  is  C23 
(changes  to  the  constraint  coefficients). 


16S 


The  user  must  first  enter  the  row  to  be  changed 


PLEASE  ENTER  THE  COLUMN  TO  BE  CHANGED 
L23 


The  column  to  be  changed  is  entered  next. 


THE  ORIGINAL  VALUE  OF  A (2. 2)  WAS 
3.000 

ENTER  NEW  VALUE  <10  CHARACTERS  MAX) 
Cl.  53 


The  original  value  is  shown,  the  new  value  is  entered. 
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PLEASE  ENTER  THE  ROW  TO  BE  CHANGED 
PRESS  D> ONE  IF  COMPLETE 


When  all  changes  to  the  constraint  coefficients  have 
been  completed,  a  CD!  is  entered.  If  you  desire  to  make 
more  changes  to  these  coefficients  after  other  changes  have 
been  entered,  it  is  permissible  and  has  no  ill  effect  on  the 
outcome. 


SELECT  THE  PARAMETERS  TO  BE  CHANGED 

1) 

C(J) 

2) 

A< I, J) 

3) 

B(I) 

4) 

CHANGES  COMPLETE 

5) 

RETURN  TO  MAIN  MENU 

C41 

You  may  select  1,  2,  or  3  as  many  times  as  desired, 
including  changes  to  coefficients  which  have  already  been 
changed.  On  the  second  change,  the  original  value  will  be 
shown.  When  all  desired  changes  have  been  entered,  select 
number  C41. 


********STILL  OPTIMAL******** 


I  PAUSE 


The  program  determines  whether  or  not  the  changes  will 
cause  a  basis  change. 


DO  YOU  WISH  TO  SOLVE  THIS  TABLEAU 

SELECT  * Y*  OR  ’N’ 


CY 1 


If  you  do  not  wish  to  see  the  new  tableau,  you  may 
return  to  the  main  menu  by  typing  CN3. 


FINAL  TABLEAU  -  OPTIMAL 

PAUSE 


This  banner  announces  that  a  final  solution  is 
available  and  that  it  is  optimal.  Other  conditions 


(degenerate)  would  be  shown  if  they  existed 


DO  YOU  WANT  THE  OUTPUT  IN 


1 )  E  FORMAT 

OR 

2)  F  FORMAT 

C23 

Output  for  the  tableaus  is  available  in  either  E  or  F 
format.  Enter  the  number  of  your  choice. 


V  1! 

*1  2) 

V  3) 

H  4) 

XI  5) 

OBJ  FUNCTION 

2.67862 

.00000 

.00000 

2.32K3 

2.61904 

CN  NAME  VAR 

litmttmmtmmiimmmmmmtmmmttmmmm 

1  2 

.14286 

i.  00000 

.00000 

-.i42B6 

.09524 

2  3 

.96429 

.00000 

1.00000 

.03571 

-.19048 

3  8 

-.10714 

.00000 

.00000 

.10714 

.09524 

PAUSE 

The  final  tableau  is  presented.  The  output  is  in  80 
column  format.  To  see  the  right  40  columns,  type 
C CONTROL- A U . 
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XI  6) 

*<  7) 

U  6) 

RHS 

OBJ  FUNCTION 

297.87900 

297.36100 

.00000  * 

-7785. ’1000 

CN  SANE 

VAR 

ttmmmimmmmmmmimmtmmmmtmmmit 

l 

2 

.14286 

-.09524 

.00000  = 

171.42900 

2 

3 

-.03571 

.19048 

.00000  = 

157.14300 

3 

8 

-.10714 

-.09524 

1.00000  = 

71.426&0 

PAUSE 

II 


'  |1«.|  w  ■« 


THIS  SEGMENT  ALLOWS  YOU  TO  ADD  AN 
ADDITIONAL  CONSTRAINT  OR  VARIABLE  TO 
AN  ALREADY  SOLVED  LINEAR  PROGRAMMING 
PROBLEM 

PAUSE 


This  caption  is  shown  after  data  retrieval  when  option 
C41  was  selected. 


DO  YOU  WISH  TO  ADD  A: 

C ) ONSTRA I NT 
OR 

V) ARI ABLE 
SELECT  'C*  OR  ’V” 

CV3 


You  can  enter  either  one  new  constraint  or  one  new 
variable.  Select  the  letter  of  your  choice. 

PLEASE  ENTER  THE  COEFFICIENT  FOR 
THE  OBJECTIVE  FUNCTION 

C<4)  =  C351 


If  a  problem  originally  had  three  variables,  the  new 

V 

variable  would  be  shewn  as  number  4.  The  variables  added 
during  the  previous  solution  are  moved  to  the  right. 
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PLEASE  ENTER  THE  COEFFICIENT  FOR 
EACH  CONSTRAINT 


A  < 

i. 

4) 

*  17 1 

A  ( 

2, 

4) 

*  C53 

A  ( 

3, 

4) 

=  C 1 1 

The  constraint  coefficients  for  the  new  variable  are 
entered  next. 


FINAL  TABLEAU  -  OPTIMAL 
MULTIPLE  OPTIMAL  SOLUTIONS  EXIST 

PAUSE 


If  the  user  requests  a  full  solution  (as  shown  in 
option  3>  the  final  conditions  will  be  displayed.  The  full 
final  tableau  will  be  displayed  after  this  statement  as  it 
was  in  option  three. 
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return  to  the  master  menu  in  Module  1. 
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Introduction 


The  objective  of  the  Programmers’  Guide  presented  in 
this  Appendix  is  to  provide  general  inforeation  and  guidance 
to  those  programmers  and  analysts  Mho  Mish  to  eodify  and/or 
expand  the  linear  programming  package  developed  in  this 
thesis.  Information  Mill  be  presented  Mhich  Mill  aid  in  the 
location  of  specific  code,  the  interaction  of  this  code  Mith 
other  units  of  code,  and  the  specific  purpose  of  each  block 
of  code.  A  section  of  this  guide  discusses  the  user— created 
disk  files  and  the  purpose  of  each  file.  Another  section 
explains  those  procedures  Mhich  are  known  to  be  peculiar  to 
the  Apple  FORTRAN  utilized  in  the  LP  package  implementation. 
This  section  Mill  be  of  specific  interest  to  those  Mho  Mish 
to  translate  all  or  a  portion  of  this  code  for  use  on 
another  computer,  either  micro  or  mainf ramie.  The  last  three 
sections  are  devoted  to  the  program  code  structure, 
variables,  and  the  text  listings  as  implemented  in  this 
thesis. 
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II  Hi  crocomputer  Dependent  Ffturti 


This  linear  programming  package,  which  consists  of  -four 
distinct  main  programs,  has  been  written  in  Apple  FORTRAN  as 
supported  by  the  Apple  II  and  Apple  II-plus  microcomputers. 
This  FORTRAN  version  uses  the  Apple  Pascal  Operating  System 
which  incorporates  UCSD  Pascal  (Re-f  1).  Although  the  Apple 
FORTRAN  language  was  created  with  the  American  National 
Standards  Institute  (ANSI)  FORTRAN  77  subset  as  its  primary 
reference,  certain  limitations  and  extensions  do  exist.  The 
purpose  cf  this  section  is  to  note  those  areas  which  do  not 
conform  to  the  ANSI  77  subset  of  FORTRAN.  Those  areas  which 
are  noted  should  be  carefully  examined  prior  to  translation 
of  these  programs  for  implementation  on  other  computer 
systems.  Only  the  areas  not  conforming  to  the  ANSI  77 
subset  need  to  be  examined  when  translating  to  other  systems 
which  fully  support  the  ANSI  77  language  subset. 

The  first  section  discusses  the  areas  in  hich  the 
Apple  FORTRAN  language  does  not  conform  to  the  ANSI  77 
subset.  Although  the  ANSI  77  subset  specifies  that  integer 
and  real  data  types  will  require  the  same  amount  of  memory, 
Apple  FORTRAN  does  not.  Integers  require  two  bytes  while 
reals  require  four  bytes  (Ref  1:220).  This  specification 
places  restrictions  on  the  numerical  range  of  both  data 
types  and  may  be  different  from  that  of  a  system  which 
conforms  to  the  ANSI  77  subset. 
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Apple  FORTRAN  also  supports  sots  features  which  are 
included  in  the  full  FORTRAN  language  but  not  in  the  ANSI  77 
subset.  Several  of  these  features  are  used  in  this  prograe. 

Subscript  expressions!  Apple  FORTRAN  and  the  full 
FORTRAN  language  support  array  eleeents  as  subscript 
expressions  while  the  ANSI  77  subset  does  not  <Ref  1*220). 
For  example,  if  X(l>=3,  Apple  FORTRAN  allows  the  (3,2) 
element  of  a  Y  matrix  to  be  represented  as  YtX(l),23. 
Conformance  to  this  standard  may  be  accomplished  by 
assigning  to  a  temporary  variable  the  value  of  the  array 
element  and  then  using  this  temporary  variable  as  the 
subscript  expression.  For  the  above  example,  one  must  state 
Z-X(l)  and  then  denote  the  (3,2)  element  as  YIIZ,23.  This 
requires  the  designation  of  another  integer  variable,  and 
therefore,  more  memory  will  be  required. 

Limits  of  a  DO  statement*  Apple  FORTRAN,  as  does  the 
full  language,  places  no  restrictions  on  the  integer 
expressions  representing  the  limits  of  a  DO  statement,  while 
the  ANSI  subset  is  somewhat  restrictive  (Ref  1*220). 
Violation  of  the  ANSI  1977  FORTRAN  subset  standard  may  be 
avoided  by  designating  a  temporary  variable  to  represent  the 
limit  expression  at  the  cost  of  memory.  An  example  which 
Apple  FORTRAN  allows  but  the  subset  does  not  would  be: 

DO  300  i*l, CA+B) 

The  equivalent  statement  for  the  subset  would  replace  the 
expression  (A+B)  by  a  single  variable. 


Expressions  in  ths  input/output  list  of  a  WRITE 
statements  Again,  the  subset  is  the  most  restrictive  and 
does  not  allow  expressions  as  elements  of  a  WRITE  statement. 
Apple  FORTRAN  does  support  expressions  in  the  I/O  list,  but 
the  expression  must  not  begin  with  a  left  parenthesis  (Ref 
1:221).  This  inconvenience  may  be  overcome  by  using  a 
leading  addition  operator  symbol.  This  peculiarity  may  be 
removed  in  translation  to  another  system  through  the  use  of 
a  temporary  variable.  This  may  require  a  larger  memory 
space.  An  example  of  this  would  be  to  replace  the 
expression  (A+B)  in  the  input/output  list  with  a  single 
variable. 

File  structures:  The  file  structure  of  Apple  FORTRAN 
extends  beyond  the  subset.  The  ANSI  subset  allows  only 
unformatted,  direct  access  files  and  formatted,  sequential 
files.  Apple  FORTRAN  supports  both  formatted  and 
unformatted  in  either  direct  access  or  sequential  files  (Ref 
1:221).  Due  to  this  difference,  the  OPEN  and  CLOSE 
statements  referring  to  these  files  may  not  conform  to  the 
subset  language.  All  data  files  of  this  software  package 
are  unformatted  sequential  files  and,  therefore,  do  not 
conform  to  the  ANSI  77  subset.  Consequently,  the  OPEN  and 
CLOSE  statements  of  these  files  do  not  conform  to  the  ANSI 
subset.  To  translate  these  programs  to  a  system  whose 
FORTRAN  conforms  to  the  ANSI  77  subset,  one  could  add  format 
specifiers  for  each  of  the  input/output  elements  of  the  READ 
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and  WRITE  statMents  and  change  the  OPEN  and  CLOSE 
statements  accordingly.  Speci-f ically,  these  changes  would 
be  required  in  files  which  use  units  3,  4,  or  7  as  the 
input/output  units. 

CHAR  intrinsic  function*  Apple  FORTRAN  conforms  to  the 
full  language  but  not  to  the  ANSI  77  subset  (Ref  1*220-221). 
The  FORTRAN  77  subset  does  not  specify  a  collating  sequence 
for  all  possible  characters  but  does  specify  general 
guidelines  for  such  a  sequence  (Ref  3x193).  This  allows 
differences  to  be  present  among  implementations.  Apple 
FORTRAN  uses  the  ASCII  (American  Standard  Code  for 
Information  Interchange)  in  its  CHAR  intrinsic  function 
implementation.  If  the  new  system  does  not  use  the  ASCII 
collating  sequence,  appropriate  changes  must  be  made  to  the 
present  programs  prior  to  translation. 

The  following  features  are  supported  by  the  Apple 
FORTRAN  language  but  are  not  in  the  subset  or  the  full 
FORTRAN  language  (Ref  1x221).  Compiler  directives, 
annotated  by  a  “4"  in  column  one,  have  been  used  to  allow 
the  overlaying  of  compilation  units.  Without  this  feature, 
each  program  would  have  exceeded  the  memory  capabilities  of 
the  Apple  I I -pi us  microcomputer  and  prevented  the 
implementation  of  the  software  package.  This  is  an  area 
which  must  be  considered  very  carefully  prior  to  translation 
attempts.  If  the  new  target  system  is  not  substantially 
larger  than  the  Apple  II-plus  (48K  RAN  plus  a  l&K  language 
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card)  or  does  not  support  soee  type  of  overlay  operation, 
translation  of  this  software  package  eay  not  be  practical. 

The  edit  control  character  is  a  special  Apple 
FORTRAN  feature.  This  character  prevents  a  line  feed 
following  a  READ  or  WRITE  statement  (Ref  1*222).  This 
feature  has  been  used  extensively  in  the  WRITE  statements 
which  prompt  user  inputs.  This  has  allowed  user  input  to 
appear  on  the  same  line  of  the  monitor  as  the  prompt  and 
aids  greatly  in  legibility.  This  feature  could  be 
eliminated  on  translation  with  careful  attention  required 
for  the  tableau  displays. 

The  previous  discussion  has  noted  those  areas  which  are 
Apple  FORTRAN  specific.  When  translating  these  programs  for 
implementation  on  another,  system,  one  must  equally  consider 
the  corresponding  machine— dependent  features  of  the  new 
target  system.  These  features  may  coincide  with  these 
discussed  above  and  therefore  require  minimal  effort. 
However,  features  which  are  included  in  the  ANSI  FORTRAN  77 
subset,  but  are  not  supported  by  the  new  system,  must  be 
carefully  researched  to  insure  the  possibility  of  a 
successful  translation. 
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Ill  SIS*  Elis  Structure 


The  object  code  files,  which  contain  the  coepiled  and 
linked  FORTRAN  source  code  files  shown  in  Part  VI  of  this 
Appendix,  are  placed  on  one  of  two  disks.  Each  disk  also 
contains  a  required  data  file.  These  two  disks  have  been 
given  the  voluee  nams  of  LPi:  and  LP2s  and  contain  the 
following  files: 


LPI : 

SYSTEM. ST ARTUP 
ED. CODE 
LPDATA 


(Module  1) 
(Module  2) 
(Data  file) 


LP2j 

TAB. CODE 
SEN. CODE 
LPDATAW 


(Module  3) 
(Module  4) 
(Data  file) 


The  code  files  have  their  corresponding  module  numbers  in 
parentheses  to  the  right,  and  the  two  data  files  have  been 
annotated  for  future  reference. 

The  four  code  files  can  be  placed  on  a  single  disk  due 
to  their  combined  size.  This  factor,  combined  with  the  fact 
that  each  module  is  a  separate  program,  required  the 
creation  of  the  two  data  files  named  LPDATA  and  LPDATAW  on 
disks  LPI s  and  LP2: ,  respecti vely.  Both  data  files  are 
unformatted,  sequential  files  which  contain  a  character 
string  of  maximum  length  10.  These  character  strings 
represent  the  disk  volume  number  or  disk  name  and  filename 
of  a  user  created  data  file.  These  programmer -def i ned  files 


IBS 


contain  the  voluee  number  or  disk  n 


and  filename  Mhich 


the  user  has  input  as  the  storage  location  of  either  the 
data  -file  of  a  model  entered  or  the  solution  of  a  linear 
programeing  problem. 

LPDATA  contains  the  user  defined  data  volume  or 
disknames filename  created  by  Module  1  when  the  user  either 
saved  a  LP  model  to  disk  or  edited  a  model  currently  on 
disk.  The  file  also  is  used  as  an  information  carrier 
(transfer  file)  to  either  Module  2  or  3,  whichever  is 
selected  when  leaving  Module  1.  When  the  user  attempts  to 
transfer  from  Module  1  (data  base  entry)  to  either  of  the 
problem  solver  modules  (Modules  2  and  3),  the  user  is 
prompted  to  input  the  name  of  the  data  file  which  will  be 
studied  in  the  problem  solver  module  selected.  The  user 
inputs  a  volume  or  disknames fi lename  and  this  is  written  to 
LP1: LPDATA.  When  the  user  begins  either  of  the  problem 
solver  modules,  LPli LPDATA  is  read.  The  program  then 
directs  the  problem  solver  module  to  read  the  designated 
file  contained  in  LPlsLPDATA. 

The  same  logic  is  also  present  in  the  LP2s LPDATAW. 
This  file  contains  the  user-defined  volume  number  or  disk 
names  filename  of  the  data  file  created  by  either  Modules  2 
or  3.  The  volume  number  or  disknames filename  contained  in 
LP2sLPDATAW  is  the  file  which  contains  the  results  of  either 
problem  solver  module.  When  the  user  begins  Module  4, 
LP2 s LPDAT AW  is  read  to  direct  the  sensitivity  analysis 


■oduli  to  road  the  designated  file.  LP2» LPDATAW  aay  also  ba 
changad  whan  transferring  directly  fro*  Module  1  to  Module 
4. 

The  two  files  discussed  above  serve  to  link  the  various 
modules  together  by  identifying  the  location  and  name  of  the 
needed  data  files.  When  a  problem  has  been  entered  using 
Module  1,  the  user  is  prompted  to  save  this  data  under  a 
user -spec if ied  disk  volume  or  disk  name  and  filename.  '  The 
same  sequence  also  occurs  upon  completion  of  the  problem 
solver  modules.  These  files,  whose  volume  number  or 
disknamei f i lenames  are  placed- in  LPDATA  or  LPDATAW,  may  be 
saved  to  disk  LPis,  LP2j  ,  or  any  disk  which  the  user 
designates  in  the  volume  name. 

The  data  files  which  store  the  LP  models  and  solutions 
of  the  model  are  unformatted,  sequential  files.  Those  files 
created  by  Module  1  contain  the  LP  model  and  are  configured 
in  a  manner  so  that  Modules  2  and  3  may  interpret  them. 
Those  data  files  created  by  Modules  2  and  3  contain  the 
final  results  of  an  LP  problem.  These  files  are  configured 
such  that  Module  4  is  capable  of  interpreting  them. 

The  disk  files  which  have  been  provided  on  the  two 
disks  must  remain  as  shown.  If  either  LPisLPOATA  or 
LP2iLPDATAW  is  removed,  an  execution  error  will  occur  since 
the  programs  will  attempt  to  open  those  files  on  their 
respective  disks.  Any  changing  of  files  must  be  done  in 
conjunction  with  corresponding  code  changes  to  prevent 
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IV  LP  Package  Structure 


The  -four  main  programs,  designated  as  Modules  1  through 
4,  which  -fore  this  LP  package  have  each  been  compiled  in 
separate  units  called  compilation  units.  After  the 
compilation  of  each  unit  in  a  module,  the  units  were  linked 
into  four  distinct  object  code  files  and  stored  on  disk 
under  a  volume* filename.  This  process  of  separate 
compilation  permits  the  use  of  the  OVERLAY  procedure  which 
allows  a  compilation  unit  to  be  resident  in  memory  only 
while  in  use.  When  the  overlayed  unit  is  no  longer  required 
for  processing,  resident  memory  is  available  for  use  by 
other  overlay  units.  This  OVERLAY  procedure  allows  each 
program  to  be  much  larger  than  would  have  been  possible  if 
the  entire  object  code  of  a  module  were  stored  in  resident 
memory. 

Listed  below  are  the  module  numbers  followed  by  the 
volume  or  disknamei filename  where  each  module  is  stored  on 
the  two  disks  provided  with  this  LP  package.  Next,  for  each 
module,  the  compilation  unit  names  are  shown.  Below  each  of 
the  compilation  unit  names  are  those  text  files  which  are 
present  in  each  compilation  unit.  The  order  of  listing  of 
the  unit  and  text  file  names  are  the  same  as  shown  in  PART 
VI.  This  will  aid  the  programmer  in  locating  the  desired 
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LPl 3  SYSTEM. STARTUP 
UNIT10 

PROGRAM  DATAB 
UNI Til 

SUBROUTINE  DAT AS 
SUBROUTINE  DAT AN 

UNIT12 

SUBROUTINE  EDIT 
SUBROUTINE  VNCH 

UNIT13 

SUBROUTINE  ADVAR 
SUBROUTINE  OBJCH 

UN I T 1 4 

SUBROUTINE  CNVA 
SUBROUTINE  DELCON 
SUBROUTINE  DEL VAR 

UNIT15 

SUBROUTINE  ICNRCH 
SUBROUTINE  ADCON 
SUBROUTINE  DISPLY 

UNIT  16 

SUBROUTINE  SAVE 
SUBROUTINE  INIT 
SUBROUTINE  DAT AD 
SUBROUT  IlvC  HEADER 
SUBROUTINE  MODULI INEW) 

SUBROUTINE  DBHED 
SUBROUTINE  INTRO 
SUBROUTINE  DBE 
SUBROUTINE  DBM 
SUBROUTINE  DEM 

UNIT17 

SUBROUTINE  CHECK <E, INVAL, RNEW) 
SUBROUTINE  CHECK2 (E, D, HVAL. INVAL, INEW) 
SUBROUTINE  CHECK3 <E, INVAL, INEW) 
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LPliED 

UNIT 20 

PROGRAM  EDUC 

UNJT21 

SUBROUTINE  OBMOU 
SUBROUTINE  OPTION 

UNIT22 

SUBROUTINE  READY 
SUBROUTINE  CNMDU 

UNIT23 

SUBROUTINE  OPT 
SUBROUTINE  TCAL 

UNIT24 

SUBROUTINE  PIVOT 
SUBROUTINE  WORK 
SUBROUTINE  OVER (RES) 

UNIT2S 

SUBROUTINE  HEADER 
SUBROUTINE  ASKQ(ASK) 

SUBROUTINE  QUESTN 
SUBROUTINE  BIGM 
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COM VAR. TEXT 


V  Variable  List 


This  section  discusses  all  variables  container*  in  this 
LP  software  package.  It  is  divided  into  five  subsections. 


The  first  subsection 

discus: 

ICS 

those  vari ables 

which 

are 

present  in  two  or 

more 

of 

the  four  modules  and 

• 

* 

identically  defined. 

Those 

variables  which  are 

present 

in 

two  or  more,  but 

not  al 1 

of  the  modules. 

have 

been 

identified  by  indicating  the  modules  in  which  they  are  used. 
The  next  four  subsections  describe  those  variables  which  are 
specific  to  just  one  the  four  modules.  Also  listed  in  the 
individual  module  variable  listings  are  those  variables 
which  may  have  different  meanings  or  value  ranges  in  other 
modules. 

A  person  studying  the  text  files  and  requiring  the 
meaning  of  specific  variables  should  first  check  the 
respective  module  variable  listing.  If  the  variable  is  not 
found  there,  it  will  be  defined  in  the  main  variable 
listing.  Also,  if  the  dimension  of  an  array  has  been 
specified  by  an  aster ik  (t),  the  dimension  of  the  array  may 
not  be  the  same  in  each  use.  This  notation  is  used  only 
when  the  array  elements  are  assigned  by  a  data  statement 
each  time  the  subroutine  is  called. 
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Main  Variable  Listing 


A  <20,  60) 


ALLOW  ( *  ) 


AO <20, 20) 


ARTV<20) 


ASK 


B  (20) 


BASIC 


BM 


C(60) 


CB (20) 


Real  array  which  contains  the  models' 
constraint  coef  f  icients,  including  the 
surplus,  slack,  and  artifical  variable 
coefficients.  (Modules  1,  2,  3,  and  4) 

Character  array  with  each  eleeent  a  maximum 
length  of  1.  The  array  contains  the  integer 
and  symbolic  characters  which  are  allowed  as 
user  inputs.  It  is  used  as  a  reference  to 
validate  user  input. 

Real  array  which  contains  the  original 
models*  constraint  coefficients  prior  to 
pivot  or  tableau  modification.  (Modules  2, 
3,  and  4) 

Integer  array  which  contains  the  constraint 
numbers  of  those  constraints  which  contain 
artificial  variables. 

Integer  flag  which  specifies  whether  or  not 
another  model  is  to  be  studied  before 
exiting  present  module.  (Modules  2  and  3 
only) 

0  -  Exit  module 
1  a  Remain  in  present  module 

Real  array  which  contains  the  original  right 
hand— sides  of  the  constraints.  (Modules  1, 
2,  and  3) 

Integer  variable  which  contains  the  current 
iteration  number  of  basic  solutions,  both 
feasible  and  infeasible.  (Modules  2  and  3 
only) 

Real  variable  which  contains  the  value  used 
for  M  in  application  of  the  "Big  MM  Method. 
(Modules  2  and  3  only) 

Real  array  which  contains  the  original 
objective  function  coefficients  and  also  the 
(Z(J)-C(J))  values  during  subsequent  pivots. 
(Modules  1,  2,  and  3) 

Integer  array  which  contains  the  variable 
subscripts  of  the  basic  variables.  (Modules 
2,  3,  and  4) 
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CN (20)  Character  array  Mith  aach  element  a  maximum 

length  of  6.  The  array  contains  the 

constraint  names  assigned  by  user. 

D  Integer  dummy  argument  which  contains  the 

maximum  number  o-f  user  input  characters 
which  will  be  verified. 

E(IO)  Character  array  with  each  element  a  maximum 

length  of  i.  The  array  is  a  dummy  argument 
which  is  used  by  subroutines  which  validate 
user  i nput . 

FMT  Integer  flag  which  denotes  whether  output  is 

in  E  or  F  format.  (Modules  2  and  3  only) 

0  =  E  format 
1  =  F  format 

FN  Character  variable  with  maximum  length  lO. 

It  contains  the  disk  name: filename  of  the 
file  currently  being  studied. 

FNO  Character  variable  with  maximum  length  lO. 

It  contains  the  disk  name: filename  of  the 
file  which  has  been  modified  by  Module  2  or 
3,  while  the  new  file  (name  presently  in  FN) 
is  being  created  for  further  study  with 
Module  4.  (Modules  2  and  3  only) 

GNEG  Real  variable  which  contains  the  largest 

negative  (Z(J)-C(J))  during  the  iterative 
process  of  determining  the  pivot  column. 
(Modules  2,  3,  and  4) 

HOLD  Real  variable  which  contains  the  tableau 

element  of  the  pivot  column  and  row 
currently  being  modified  in  the  iterative 
step.  (Modules  2,  3,  and  4) 

HVAL  Integer  dummy  argument  which  contains  the 

largest  integer  value  allowed  as  user  input. 

IBTAB  Integer  variable  which  denotes  the  interval 

between  displayed  intermediate  basic 

tableaus.  (Modules  2  and  3  only) 

0  a  Do  not  display  intermediate  basic 
tableaus 

1  *  Display  every  intermediate  basic 

tableau 

2  *  Display  every  second  intermediate  basic 

tableau,,  etc. 
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IFLAGd)-(lO) 


Integer  flag.  See  variable  list  preceding 
each  module  listing  for  specific  meaning  in 
each  module. 


IFTAB 

INDEXE 

1NDEXG 

INDEXL 

INEQ (20) 

I  NEW 

INVAL 

I  TAB 

K 

KFA 


Integer  flag  Mhich  demotes  whether  or  not 
final  tableau  is  displayed.  (Nodules  2  and 
3  only) 

1  »  Display  final  tableau 
2s  Do  not  display  final  tableau 

Integer  variable  which  specifies  the 
variable  subscripts  of  the  artificial 
variables. 


Integer  variable  which  specifies  the 
variable  subscripts  of  the  surplus 
variables. 

Integer  variable  which  specifies  the 
variable  subscripts  of  the  slack  variables. 


Integer  array  which  contains  the  type  of 
inequality  or  equality  of  each  constraint. 

0  *  Less— than  or  equal 

1  =  Greater-than  or  equal 

2  =  Equality 

Integer  variable  which  is  uses  as  both  the 
actual  and  dummy  arguments  of  the 

subroutines  which  validate  user  input. 

Integer  flag  which  is  used  as  both  the 
actual  and  dummy  arguments  of  the 

subroutines  which  validate  user  input. 

0  =  User  input  is  valid 
1  *  User  input  is  invalid 

Integer  flag  which  denotes  whether  or  not 
initial  basic  tableau  is  to  be  displayed. 

1  “  Display  initial  basic  tableau 

2  *  Do  not  display  initial  basic 

tableau 

Integer  variable  which  contains  the  number 
of  constraints  in  the  model. 


Integer  variable  which  contains  the  column 
number  of  the  first  artificial  variable. 
(Modules  2,  3,  and  4) 
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KFS 

Integer  variable  which  contains  the  column 
number  of  the  first  slack  variable. 
(Modules  2  and  3  only) 

KFSA 

Integer  variable  which  contains  the  column 
number  of  the  first  surplus  variable. 
(Modules  2  and  3  only) 

KFSU 

Integer  variable  which  contains  the  column 
number  of  the  last  surplus  variable. 
(Modules  2  and  3  only) 

MM 

Character  variable  of  maximum  length  3.  Zt 
contains  either  “MAX"  or  "HIN“  for 
maximization  or  minimization,  respectively. 

MXMN 

Integer  flag  which  denotes  whether  original 
problem  was  maximization  or  minimization. 

1  =  Maximization 

2  =  Minimization 

NEC 

Integer  variable  which  contains  the  number 
of  equality  constraints. 

NGC 

Integer  variable  which  contains  the  number 
of  greater-than  or  equal  constraints. 

NLC 

Integer  variable  which  contains  the  number 
of  less-than  or  equal  constraints. 

OBJN 

Character  variable  of  maximum  length  iO.  It 
contains  the  name  of  the  objective  function. 

OPTS 

Integer  flag  which  denotes  whether  or  not 
last  basic  solution  was  optimal.  (Modules 
2f  3,  and  4> 

0  =  Non— opt i mal 
i  »  Optimal 

OUTP  Integer  flag  which  denotes  whether  output  is 

to  be  displayed  on  screen  or  printer. 
(Modules  2  and  3  only) 

1  ■  Display  on  screen 

2  =  Display  on  printer 

P(10)  Character  array  with  each  element  a  maximum 

length  1.  All  user  inputs  are  read  as 
characters.  It  is  also  used  as  actual 
arguments  to  subroutine  calls  which  verify 
UBer  inputs. 
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PELE 


P1NEQ (20) 

PK 

PN 

PR 

SPR 

SUM 

T 

TIE 

V 

VN  (20) 

VT 


i 

i 


Real  variable  which  contains  the  coefficient 
value  of  the  pivot  el eeent  designated  by  PK 
and  PR.  (Modules  2  and  3  only) 

Character  array  with  each  el eeent  a  max i mum 
length  1.  It  contains  the  synbolic 
representation  of  the  equality  or  inequality 
for  each  constraint. 

Integer  variable  which  contains  the  column 
selected  for  the  current  pivot.  (Modules  2, 
3.  and  4) 

Character  variable  of  max i nun  length  20.  It 
contains  the  problem  name  supplied  by  user 
for  current  model . 

Integer  variable  which  contains  the  row 
selected  for  the  current  pivot.  (Modules  2, 
3,  and  4) 

Real  variable  which  contains  the  smallest 
ratio  of  the  right-hand  side/pivot  column 
element  for  all  constraints.  (Modules  2,  3 
and  4) 

Real  variable  used  as  temporary  sum  of  a 
summation  process.  (Modules  2  and  3  only) 

Integer  variable  which  contains  the  number 
of  80  column  widths  required  to  display 
tableau. 

Integer  flag  which  that  denotes  a  tie  exists 
for  entering  or  leaving  variable.  (Modules 
2  and  3  only) 

0  =  No  tie 
1  *  Tie 

Integer  variable  which  contains  the  number 
of  variables  in  the  model  excluding  surplus, 
slack  and  artificial  variables. 

Character  array  with  each  element  a  maximum 
length  of  6.  It  contains  the  variable  names 
assigned  by  user. 

Integer  variable  which  contains  the  total 
number  of  variables  in  the  model,  including 
surplus,  slack  and  artificials.  (Modules  2, 
3,  and  4> 
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XB (20) 


RhI  array  which  contains  ths  constraint 
right-hand  si  das  o-f  tableau. 


Z 


Real  variable  which  contains  the  current 
objective  function  value. 
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Module  1  Variable  Listing 


CMAK 

CHAN 

CHARO 

D 

DEC IMA 

I FLAG  < 1 ) 
IFLAG  <2> 

IFLAG  <3> 

IFLAG (4) 

IFLAG (5) 


Integer  variable  which  contains  the  column 
number  which  the  user  has  selected  to  make 
coefficient  corrections. 

Character  variable  of  maximum  length  6.  It 
contains  the  new  constraint  name  which  user 
has  defined  prior  to  its  assignment  to 
CN(I) . 

Integer  variable  which  contains  the  number 
of  the  constraint  which  the  user  has 
selected  to  make  corrections. 

Integer  dummy  argument  which  contains  the 
maximum  number  of  user  input  digits. 

Integer  flag  which  denotes  whether  or  not  a 
decimal  had  been  found  during  the  process  of 
user  input  validation. 

0  *  No  decimal  processed 
1  *  Decimal  processed 

Not  used 

Integer  flag  which  denotes  whether  or  not 
model  has  been  saved  to  disk  since  entering 
of  data  or  change  of  data 
0  =  Not  saved  to  disk 
1  =  Saved  to  disk 

Integer  flag  which  denotes  whether  or  not 
tableau  is  in  proper  form  for  initial  pivot. 
0  »  Not  in  proper  form 
1  »  Fore  is  correct 

Integer  flag  which  denotes  form  of  objective 
function. 

0  *  Form  is  Z»X 
1  *  Form  is  Z-X»0 

Integer  flag  which  denotes  whether  or  not 
model  contains  variable,  constraint  and 
objective  function  names. 

0«  No  name,  subscripts  only 
1  *  Names  and  subscripts 
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IFLAG <6> 


Integer  flag  which  denotes  the  changes 
desired  in  a  constraint. 

0  3  Change  coefficient,  inequality, 
and  right  hand  side 

1  3  Change  coefficient  only 

2  3  Change  inequality  only 

3  3  Change  right-hand  side  only 

4  3  Change  constraint  name  only 

IFLAG (7)  Not  used. 

IFLA6<8)  Integer  flag  which  denotes  the  changes  in 

the  objective  function. 

0  3  Change  cost  coefficient  and 

maximization/minimization  choice 

1  3  Change  cost  coefficient  only 

2  3  Change  maximization/minimization 

choice  only 

IFLAG (9)  Integer  flag  which  denotes  whether  to 

display  objective  function  and  constraints 
or  objective  function  only. 

0  3  Display  objective  function  and 
constraints 

1  3  Display  constraints  only 
IFLAG (10)  Not  used. 

M  Real  variable  which  is  a  multiplier  to 

properly  place  the  decimal  in  the  verified 
user  i nput . 

NEGAT  Integer  flag  which  denotes  whether  user 

input  was  a  positive  or  negative  value. 

0  3  Positive  input 

1  3  Negative  input 

RNEW  Real  actual  and  dummy  argument  to  SUBROUTINE 

CHECK2  <  E , I NVAL , RNEN ) 
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Module  2  Variable  Lifting 


CO 


CO (20) 


D(IO) 


F 


I FLAG ( 1 ) 


IFLAG (2) 


IFLAG<3) 


IFLAG (4) 


Character  variable  o-f  aaxiaua  length  7.  It 
contains  a  character  string  tor  display 
noting  a  correct  response  in  SUBROUTINE  OPT. 

Real  array  which  contains  the  absolute  value 
of  the  constraint’s  original  right-hand 
side.  It  is  located  in  SUBROUTINE 
ASKQ(ASK). 

Character  array  with  each  element  a  maximum 
length  o-f  1.  Actual  argument  in  subroutine 
call  statements  located  in  SUBROUTINE 
OPTION.  User  input  is  read  into  this  array. 

Character  variable  of  maximum  length  1.  It 
is  located  in  SUBROUTINE  OPT  for  reading 
user  responses. 

Used  as  a  dummy  storage  area  to  prevent 
writing  over  other  IFLAGO)  variables.  Also 
an  integer  variable  which  denotes  whether  a 
basic  solution  is  infeasible  due  to  a 
negative  right-hand  side,  and  if  so,  which 
constraint  contains  the  negative  right-hand- 
side. 

0  *  Solution  not  infeasible  due  to 
negative  right-hand  side 
I  *  Solution  infeasible  due  to  negative 
right-hand  side  in  constraint  I 

Integer  flag  which  denotes  whether  or  not 
model  has  been  saved  to  disk  since  entering 
of  data  or  change  of  data. 

0  =  Not  saved  to  disk 
1  =*  Saved  to  disk 

Integer  flag  which  denotes  that  screen  is  to 
be  cleared  after  display  of  tableau. 

0  *  Do  not  clear  screen 
1  *  Clear  screen 

Integer  flag  which  denotes  whether  or  not 
multiple  optimal  solutions  exist  SUBROUTINE 
OPT.  Also  used  in  SUBROUTINE  PIVOT  as  an 
integer  variable  which  contains  the  column 
selection  of  the  algorithm. 

0  =  No  multiple  optimal  solutions 
1  »  Multiple  optimal  solutions  exist 


203 


I FLAG (S) 


I FLAG (6) 


IFLAG  <7) 


IFLAG  <8) 


IFLAG <9) 


IFLAG < 10) 


INC 


Integer  flag  which  denotes  whether  or  not 
eodel  contains  variable,  constraint,  and 
objective  function  names. 

O  »  No  names,  subscripts  only 
1  =  Names  and  subscripts 

Integer  variable  which  contains  the  basic 
variable  subscript  of  the  degenerate 
variable  in  SUBROUTINE  OPT.  Also  used  in 
SUBROUTINE  PIVOT  as  an  integer  variable 
which  contains  the  row  selection  of  the 
algorithm. 

O  *  Solution  not  degenerate 
else  »  Basic  variable  subscript  which 
is  zero 

Integer  flag  which  denotes  whether  or  not 
current  solution  is  unbounded  or  bounded 
O  =  Bounded 
1  =  Unbounded 

Integer  flag  utilized  in  SUBROUTINE  OPT  to 
determine  if  variable  is  a  basic  variable. 

O  *»  Non  basic  variable 
1  =  Basic  variable 

Integer  variable  which  denotes  whether  to 
display  current  constraints  only,  current  LP 
model  without  noting  basic  variables,  or  LP 
model  with  basic  variables  annotated. 

O  *  Current  LP  model  without  annotating 
basic  variables 

1  »  Current  constraints  only 

2  *  Current  LP  model  with  basic 

variables  annotated 

Integer  flag  which  denotes  whether  or  not 
further  pivots  are  allowed  or  desired. 

0  *  Further  pivots  allowable  and/or 
desired 

5  *  Further  pivots  not  desired 
and/or  allowed 

Character  variable  with  maximum  length  of  9. 
It  contains  character  string  for  display 
noting  incorrect  response  in  SUBROUTINE  CPT. 


INEQ<20) 


INF1 


Integer  array  which  contains  values 
designating  the  type  of  equality  or 
inequality  after  constraints  with  negative 
right-hand  sides  have  been  eultiplied  by  -1. 
0  *  Less-than  or  equal 

1  3  Greater -than  or  equal 

2  3  Equality 

Integer  variable  which  denotes  whether  or 
not  a  basic  solution  is  infeasible  due  to  an 
artificial  variable  being  negative,  and  if 
so,  the  constraint  number  of  the  negative 
artificial  variable. 

0  3  Solution  not  infeasible  due  to 
negative  artificial  variable 
1  3  Solution  infeasible  due  to 

negative  artificial  variable  in 
constraint  1 

Integer  flag  which  denotes  whether  or  not 
primal  pivots  are  permissible  on  the  current 
tableau. 

0  3  Primal  pivot  not  permissible 
1  3  Primal  pivot  is  permissible 

Integer  flag  which  denotes  whether  or  not 
dual  pivots  are  permissible  on  the  current 
tableau. 

0  3  Dual  pivot  not  permissible 
1  3  Dual  pivot  is  permissible 

Integer  flag  which  denotes  whether  the  user 
or  the  algorithm  should  modify  the  initial 
tableau  into  the  proper  simplex  form. 

1  3  User  modification 

2  3  Algorithm  modification 

Integer  variable  which  contains  the  number 
of  equality  constraints  after  constraints 
with  negative  right-hand  sides  have  been 
multiplied  by  -1. 

Integer  variable  which  contains  the  number 
of  greater — than  or  equal  constraints  after 
constraints  with  negative  right-hand  sides 
have  been  multiplied  by  -1. 

Integer  variable  which  contains  the  number 
of  less-than  or  equal  constraints  after 
constraints  with  negative  right-hand  sides 
have  been  multiplied  by  -1. 
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NNU 


ODB 

OIU 

PES 

PKS 

PRS 

RES 

RATIO 

S 


Character  variable  of  maximum  length  14.  It 
contains  a  character  string  for  display 

noting  whether  solution  was  not  optimal, 
nondegenerate,  or  unbounded. 

Character  variable  of  aaxinua  length  10.  It 
contains  a  character  string  far  display 

noting  whether  solution  was  optieal, 
degenerate,  or  bounded. 

Integer  flag  which  denotes  whether  the  user 
or  the  algorithm  will  identify  optimal, 
infeasible,  and  unbounded  solutions. 

1  »  User 

2  =  Algorithm 

Integer  flag  which  denotes  the  method  of 
pivot  element  selection. 

1  =  User  selects,  algorithm  checks 

2  =  User  selects,  no  algorithm  check 

3  =  Algorithm  selects,  no  user  input 

Integer  variable  which  contains  the  user 
selected  pivot  column. 

Integer  variable  which  contains  the  user 
selected  pivot  row. 

Integer  flag  which  denotes  whether  or  not 
the  user  wishes  to  perform  a  pivot  with  a 
pivot  element  that  is  equal  to  or 
aporoximately  zero. 

Real  variable  which  contains  the  ratio  of 
the  right-hand  side  of  row  I /coefficient  of 
row  I.  column  PK  element. 

Integer  variable  which  contains  the  proper 
response  value  to  question  asked  of  user. 
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Module  3  Variable  Listing 


C2<20) 


DUAL 


IE 


I FLAG  <  1  > 

I FLAG (2) 


I FLAG (3) 


Real  array  which  contains  the  C(J)*s  -for  the 
dual  problem  (the  X(I)*s  o-f  the  primal 
problem) . 

Integer  -flag  which  denotes  whether  or  not 
dual  pivots  are  to  be  allowed  in  problem 
solution. 

1  *  Dual  pivots  are  not  to  be  used 

2  *  Dual  pivots  may  be  used 

Integer  counter  which  contains  the  number  o-f 
unconstrained  variables  added  to  the  dual 
model . 

Used  as  a  dummy  storage  area  to  prevent 
writing  over  other  IFLAG(t)  VALUES. 

Integer  -flag  which  denotes  whether  or  not 
model  has  been  saved  to  disk  since  entering 
of  data  or  change  of  data. 

O  =*  Not  saved  to  disk 
1  *  Saved  to  disk 

A 

Not  used. 


IFLAG<4) 


IFLAG  <5) 


IFLAG(6> 


IFLAG (7) 


Integer  flag  which  denotes  whether  or  not 
multiple  optimal  solutions  exist. 

O  *  No  multiple  optimal  solutions 
1  ■*  Multiple  optimal  solutions  exist 

Integer  flag  which  denotes  whether  or  not 
model  contains  variable,  constraint,  and 
objective  function  names. 

0  =  No  names,  subscripts  on)  / 

1  =  Names  and  subscripts 

Integer  flag  which  denotes  whether  the 
solution  is  degenerate  or  nondegenerate. 

0  *  Nondegenerate 
1  =  Degenerate 

Integer  flag  which  denotes  whether  current 
solution  is  unbounded  or  bounded. 

0  »  Bounded 
1  *  Unbounded 
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IFLA6<8> 


IFLA6  <9) 

IFLAG< lO) 

IT 

INFP 

K2 

N 

NEC 

NGC 


Integer  flag  utilized  in  SUBROUTINE  OPTB  to 
d«t«r«in«  if  variable  a  is  basic  variable. 

O  ■  Non  basic  variable 
1  ■  Basic  variabls 

Integer  flag  which  denotes  whether  or  not 
the  current  solution  is  to  be  displayed. 

0  *  Do  not  display  current  solution 
1  =  Display  current  solution 

Integer  flag  which  denotes  whether  solution 
of  nodel  was  performed  by  primal  pivots  or 
dual  pivots. 

0  =■  Primal  pivots 
1  3  Dual  pivots 

Integer  flag  which  denotes  a  constraint  is 
required  to  be  added  to  insure  that  an 
initial  pivot  may  be  performed. 

0s  No  constraint  added 
1  ■  Constraint  added 

Integer  flag  which  denotes  whether  solution 
is  feasible  or  infeasible  due  to  either  a 
negative  right-hand  side  or  an  artificial 
variable  at  a  positive  level. 

O  *  Feasible 

1  ■  Infeasible 

Integer  variable  which  contains  the  numbr. 
constraints  of  the  dual  problem. 

Integer  actual  and  dummy  argument  which 

denotes  whether  variables  or  constraints 

have  been  added  to  the  model . 

1  *  Variables 

2  *  Constrai  nts 

Integer  variable  which  contains  the  number 
of  equality  constraints  after  constraints 
with  negative  right-hand  sides  have  been 
multiplied  by  -1. 

Integer  variable  which  contains  the  number 
of  greater-than  or  equal  constraints  after 
constraints  with  negative  right-hand  sides 
have  been  multiplied  by  -1. 
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NLC 


PROBT 

TN 

V2 

VN2 (20) 


Integer  variable  which  contains  the  number 
of  less-than  or  equal  constraints  after 
constraints  with  negative  right-hand  sides 
have  been  multiplied  by  -1. 

Integer  flag  which  denotes  whether  problem 
to  be  solved  is  the  primal  or  dual  problem 
of  the  current  model . 

1  *  Primal 

2  =  Dual 

Character  variable  of  maximum  length  11.  It 
contains  a  string  to  be  displayed  annotating 
whether  constraints  or  variables  have  been 
added  to  the  model . 

Integer  variable  which  contains  the  number 
of  variables  in  the  dual  problem. 

Character  array  with  each  element  a  maximum 
length  &.  It  contains  the  variable  names  of 
the  dual  problem. 
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Module  4  Variable  Listing 


AF(20,&0) 

ARTVAR 

BASIC (20) 

BO  (20) 

BF  (20) 

CO (20) 

CF (20) 

CKILL1 

CK ILL2 

CLOWFR 

COL 


The  matrix  of  real  variables  which  are  the 
-final  tableau  values  of  the  full  matrix. 
These  values  are  read  from  the  datafile  and 
are  then  modified  by  some  sections  of  Module 
4  in  order  to  obtain  a  new  final  tableau. 

An  integer  variable  used  to  count  the  number 
of  artificial  variables  in  the  problem  and 
to  determine  which  column  in  B-inverse  is 
associated  with  the  given  constraint. 

An  integer  variable  used  to  indicate  whether 
or  not  a  particular  column  in  the  A  matrix 
is  in  the  basis. 

O  =  not  in  basis 
1  =  in  basis 

The  vector  of  original  values  of  the 
right-hand  side  which  were  entered  in  Module 
1. 

The  vector  of  final  values  for  the 
right-hand  side  from  Module  3  or,  after 
modification,  the  new  final  values. 

The  vector  of  original  objective  function 
coefficients  from  Module  1. 

The  vector  of  objective  function  coefficient 
in  the  final  tableau  from  Module  3  or,  after 
modification,  the  new  final  tableau  values. 

A  real  variable  used  to  check  whether  or  not 
a  lower  bound  will  make  the  sensitivity 
analysis  ill-conditioned. 

A  real  variable  used  to  check  whether  or  not 
an  upper  bound  will  make  the  sensitivity 
analysis  ill-conditioned. 

A  real  variable  used  to  compute  the  lower 
bound  on  each  objective  function 
coefficient. 

An  integer  variable  used  to  denote  the 
columns  under  consideration. 
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CONSTR 

CUPPER 

DELADN 

DELAUP 

DELTAA(20> 

DELTAA  <20, 

DELTAS (20) 

DELTAC (20) 

WADI 

HEAD2 

I FLAG ( 4 ) 


An  integer  variable  used  to  denote  the 
constraint  under  consideration. 

A  real  variable  used  to  compute  the  upper 
bound  on  each  objective  function 
coefficient. 

A  real  variable  used  to  compute  the  minimum 
negative  change  to  each  element  of  the 

original  A  matrix  which  would  cause  a 

multiple  optimal  solution  in  the  final 

tableau. 

A  real  variable  used  to  compute  the  minimum 
positive  change  to  each  element  of  the 

original  A  matrix  which  would  cause  a 

multiple  optimal  solution  in  the  final 

tableau. 

A  temporary  vector  of  real  variables  which 
holds  the  values  of  the  new  column  of  an 
added  variable  while  the  original  values  are 
being  multiplied  by  B— inverse. 

20)  A  temporary  matrix  of  real  variables  which 
holds  the  change  (delta)  to  each  of  the 

elements  in  the  A  matrix. 

A  temporary  vector  of  real  variables  which 
holds  the  change  (delta)  to  each  of  the 

elements  in  the  B  vector. 

A  temporary  vector  of  real  variable:  which 
holds  the  change  (delta)  to  each  of  the 

elements  in  the  C  vectu  , 

An  integer  variable  ^sich  indicates  whether 
or  not  a  heading  has  been  displayed  on  the 
screen. 

0  =  Heading  has  not  been  displayed 
1  *  Heading  has  been  displayed 

An  integer  variable  which  indicates  whether 
or  not  a  heading  has  been  printed. 

0  =  Heading  has  not  been  printed 
1  “  Heading  has  been  printed 

An  integer  variable  used  to  indicate  a 
multiple  optimal  solution. 

0  ■  Not  multiple  optimal 
1  *  Multiple  optimal 


211 


I  FLAG  (5) 


I FLAG  <6) 

IFLAG<7> 

IFLAG (8) 

IFLAG (9> 

IFLAG <10) 

ILL1 

ILL2 

J 

LWBD (20, 20) 


An  integer  variabl*  uMd  to  indicate  whether 
or  not  naeed  resources  and  variables  are 
used. 

0  ■  Naees  not  used 
1  =  Names  used 

An  integer  variable  which  indicates  whether 
or  not  the  problem  is  degenerate. 

.  0  »  Not  degenerate 
1  =  Degenerate 

An  integer  variable  which  indicates  whether 
or  not  the  problem  is  unbounded. 

0  ■  Not  unbounded 
1  *  Unbounded 

An  integer  variable  used  as  a  temporary 
indicator  when  checking  -for  multiple  optimal 
sol utions. 

An  integer  variable  used  as  an  indicator  to 
prevent  manipulation  o-f  possibly 
ill-conditioned  matrices. 

An  integer  variable  which  shows  when  dual 
pivots  have  been  used  during  the  initial 
tableau  solution. 

O  =  No  dual  pivots 
1  *  Dual  pivots 

An  integer  variable  which  indicates  whether 
or  not  the  lower  bound  o-f  an  element  in  tne 
A  matrix  may  present  an  ill-conditioned 
problem  when  solved  through  sensitivity 
analysi s. 

An  integer  variable  which  indicates  whether 
or  not  the  upper  bound  of  an  element  in  the 
A  matrix  may  present  an  ill-conditioned 
problem  when  solved  through  sensitivity 
analysis. 

An  integer  variable  generally  used  in  DO 
loops  to  denote  columns  1  through  V  or  VT. 

A  real  matrtix  used  during  right-hand-side 
ranging  to  compute  the  lower  bound  of  a 
column  of  the  A  matrix  associated  with  a 
particular  constraint. 
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LINES 


1 


LINEP 

LWBD 

NEWA  (20,  20) 

NEWB  <  20  ) 

NEWCJ  <20) 

RMAX (20) 

RMIN (20) 

ROW 

RSCH (20, 20) 


RSLLIM (20) 

RSUPLIM 


An  integer  variably  used  to  count  tha  nuabar 
of  lines  which  have  bean  displayed  on  tha 
screen. 

An  integer  variable  used  to  count  the  nuaber 
of  lines  which  have  been  printed  on  a  page. 

A  real  variable  used  to  coapute  the  lower 
bound  of  an  element  in  the  A  matrix. 

A  real  matrix  used  to  hold  the  new  (user 
input)  values  of  the  A  elements. 

A  real  vector  used  to  hold  the  new  values  of 
the  right-hand  side.  The  first  element  of 
the  vector  (NEWB(i))  is  occassional ly  used 
as  a  temporary  holding  variable  during 
computations. 

A  real  vector  used  to  hold  the  new  values  of 
the  objective  function  coefficients. 

A  real  vector  used  to  coapute  the  ainiaua 
positive  resource  (right -hand-side)  change 
which  would  force  a  change  in  the  basis. 

A  real  vector  used  to  compute  the  minimum 
negative  resource  (right-hand— side)  change 
which  would  force  a  change  in  the  basis. 

An  integer  variable  generally  used  in  DO 
loops  to  vary  the  constraints  from  1  to  K 
while  working  with  a  different  constraint 
under  the  variable  name  C0NSTR. 

A  real  matrix  which  holds  the  ratio  between 
the  right-hand-side  value  and  the  A  element 
of  the  column  associated  with  the  constraint 
under  consideration.  The  minimum  positive 
and  negative  ratios  determine  the  maximum 
right-hand-side  changes  allowed  for  the 
constraint  while  maintaining  the  current 
basis. 

A  real  vector  which  indicates  the  lower 
limit  for  each  right -hand-side  element. 

A  real  vector  which  indicates  the  upper 
limit  for  each  element  of  the  right-hand 
side. 
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SELINP ( 10) 


SELSUB 

SELOUT 

SELSOL 

SLACK 

TEMP 

TEMPA 

TEMPA  <20, 20) 

TEMPCJ (20) 

UPBD 

UPBD  < 20 , 20 ) 

ZLP 

ZUP 


A  character  vector  used  during  keyboard 
input  of  numbers.  The  “characters'*  are  sent 
to  a  subroutine  to  be  checked  and  them 
returned  as  numbers  if  no  errors  are 
detected. 

A  character  variable  used  to  direct  the 
desired  subroutine  call. 

A  character  variable  used  to  direct  output 
to  the  screen,  printer,  or  both. 

A  character  variable  used  to  indicate 
whether  or  not  a  particular  tableau  will  be 
sol ved . 

An  integer  variable  used  to  count  the  number 
of  slack  variables. 

A  real  variable  used  to  temporarily  store 
values  during  computation. 

A  real  variable  used  to  temporari ly  store 
values  during  computation. 

A  matrix  of  real  variables  which  is  used  to 
hold  the  columns  of  the  B-inverse  matrix 
while  the  columns  of  the  matrix  are  being 
realigned  to  the  identity  matrix  order. 

A  vector  of  real  variables  which  holds  the 
values  of  the  objective  function 
coefficients  which  are  above  the  slack  and 
artificial  columns  while  the  columns  of  the 
B-inverse  matrix  are  being  reordered. 

A  real  variable  used  to  compute  the 
upperbound  of  an  element  in  the  A  matrix. 

A  real  matrix  used  during  right -hand-side 
ranging  to  compute  the  upper  bound  of  a 
column  of  the  A  matrix  associated  with  a 
particular  constraint. 

A  real  variable  which  holds  the  Z  lower 
bound  value  which  will  be  printed. 

A  real  variable  which  holds  the  Z  upper 
bound  value  which  will  be  printed. 
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A  real  variable  which  holds  the  Z  lower 
bound  value  which  will  be  displayed  on  the 
scr een . 

ZUS  A  real  variable  which  holds  the  Z  upper 

bound  value  which  will  be  displayed  on  the 
screen. 
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VI  Proor—  Listing* 


The  -following  listings  are  the  text  -files  which  have 
been  compiled  and  linked  to  -form  the  cod*  files  of  this  LP 
package.  Preceding  each  program  and  subroutine  listing  are 
comments  which  may  assist  a  programmer  in  efforts  to  modify, 
expand,  or  translate  the  Apple  FORTRAN  source  code. 

The  comment  blocks  contain  several  items  of  importance 
in  a  standard  format  to  assist  future  programmers.  The 
first  item  listed  in  each  comment  block  is  the  module  number 
which  the  listed  program  or  subroutine  is  a  part. 
Immediately  following  is  the  compilation  unit  name  which 
contains  this  program  or  subroutine.  The  next  line  is  only 
present  in  the  comment  block  of  the  first  listing  of  each 
compilation  unit.  This  line  lists  those  compilation  units 
which  contain  subroutines  called  by  this  compilation  unit. 
Next,  the  name  of  the  program  or  subroutine  which  this 
comment  block  preceeds  is  shown.  The  following  section  is  a 
brief  discussion  of  the  program’s  or  subroutine’s  purpose 
and  any  special  items  of  interest.  The  program  or 
subroutines  which  call  this  subroutine  are  listed  following 
the  discussion.  Next,  a  listing  of  those  subroutines  or 
programs  which  may  call  this  subroutine  are  shown.  The  last 
section  of  the  comment  block  identifies  those  variables 
which  either  influence  execution  of  the  program/subroutin* 
or  are  changed  during  execution.  The  first  variables  listed 
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with  the  heeding  USED  ere  those  which  may  be  utilized,  but 
not  changed, during  execution.  The  second  heeding,  MODIFIED, 
lists  those  variebles  which  mey  change  in  value  during  the 
execution  of  the  program  or  subroutine.  Only  those 
variables  directly  used  or  modified  by  the  programs  or 
subroutines  have  been  shown.  Therefore,  if  Program  A  calls 
Subroutine  B  which  changes  the  value  of  variable  C,  only 
Subroutine  B  will  list  variable  C  as  a  modified  variable. 
Also,  note  that  all  arrays  in  which  the  specific  array 
element  or  elements  used  or  modified  may  vary  due  to  problem 
size  ere  annotated  with  an  asterik  <*>.  Numeric  subscripts 
are  shown  only  where  a  specific  element  or  elements  are 
known  to  be  either  used  or  modified  during  the  execution  of 
the  program  or  subroutine. 
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c  1 1  i  *  x  i  »  1 1  *  x  i  i  i  i  i  x  x  i  I  i  i  i x  i  x  i  1 1  i  x  i  x  x  I 

C  NODULE  i  UNITIO  X 

C  UNIT  XUSES:  UNIT!!  THRU  UN1T17  I 

C  X 

C  PROGRAM  DATAB  t 

C  USE:  RAIN  PROGRAM  OF  NODULE  1  LP  PACKAGE.  PURPOSE  OF  MODULE  IS  THE  I 

C  ENTRY  OF  NEH  AND  EDITING  OF  EXISTING  LF  MODELS  IN  A  FORM  X 

C  ACCEPTABLE  NITH  NODULES  2  AND  3.  NODULE  1  CONSISTS  OF  8  X 

C  SEPARATELY  COMPILED  UNITS  (UNITIO  THRU  1911117)  NITH  ALL  UNITS  I 

C  EXCEPT  UNITIO  BEING  OVERLAY  UNITS.  X 

C  PROGRAM  DATAB  ACTS  AS  AN  OUTER  COMMAND  LEVEL  WHICH  SOLICITS  X 

C  USER  INPUT  DESIGNATES  THE  OPTION  DESIRED.  THIS  DESIGN  * 

C  ALIGNS  OVERLAY  UNITS  TQ  BE  RELEASED  FROM  MEMORY  PRIOR  TO  MEW  » 

C  UNITS  BEING  CALLED  WHICH  WOULD  OVERLOAD  MEMORY.  X 

C  CALLED  BY:  NONE  X 

C  CALLS  :  SUBROUTINE  CHECK2 (P, M, H, INVAL, INEW)  t 

C  SUBROUTINE  DATAD  X 

C  SUBROUTINE  DATAN  1 

C  SUBROUTINE  DATAS  X 

C  SUBROUTINE  SBE  X 

C  SUBROUTINE  D8HED  X 

C  SUBROUTINE  DBM  X 

C  SUBROUTINE  OEM  X 

C  SUBROUTINE  DISPLY  I 

C  SUBROUTINE  EDIT  X 

C  SUBROUTINE  GENIF  *  .  X 

C  SUBROUTINE  HEADER  X 

C  SUBROUTINE  1N1T  X 

C  SUBROUTINE  INTRO  X 

C  SUBROUTINE  MODULI 1NEMI  X 

C  VARIABLES:  I 

C  USED:  IFLAGI2), INVAL  X 

C  MODIFIED:  iFlA6<5),IFLA6(9), INCH, FIX)  X 

C  X  X  X  X  1  X  1  X  X  X  X  X  X  X  X  X  t  x  I  X  X  I  X  X  X  X  X  X  X  I  X  X  1  X  X 
XUSE3  UCKECK  IN  UN1T17.C3DE  OVERLAY 
XUSES  USftVF  IN  UNIT  16. CODE  OVERLAY 
XUSES  UICNRCH  IN  UN1TJ5.CQDE  OVERLAY 
sUSES  UCNVA  IN  UNIT14.CQCE  OVERLAY 
XUSES  UADVAR  IN  UNIT13. CODE  OVERLAY 
XUSES  UEDIT  IN  UNIT; 2. CODE  OVERLAY 
XUSES  JDATAS  IN  UNITtl.CCDE  OVERLAY 
PROGRAM  DATAB 

CHARACTER  VNI6, CM4,PNI20, MMX3, FNX 10, PI NE6X1 , PX 1 . OBJNX 10 
INTEGER  V 

C0HM0N/Cl/A<20,6O),3I2O),C(A0),INE9<2O),IFLAGU<)),NEC,NBC,NLCfK,V, 

.MXMN 

C0MM3N/C2/VN(6O),CN(2O),F'N,NI1,FN.P»NEfiI20(,PI10)>0BJN 
OPEN ( 1 , FILE* ’ CONSOLE : ' > 

UPtiHS,  FILE- ’CONSOLE: r ) 

CALL  HEADER 

l>)0  NR!TEU,M/,3)(,”ARE  INTRODUCTORY  REMARKS  DESIRED'”  Hit,"  (Y/ 

.N.  RETURN) 
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READ(5,’!A1)')F(1) 

IF ( ICHAR <P ( 1) )  .ED.  8’) THEN 
CALL  INTRO 

ELSEIF < ICHAR (Pil) >  .NE.  731THEN 
WRITE! 1 f 110) 

110  FORMAT </5X,' INVALID  ENTRY,  PLEASE  REENTER' ) 

SO  TO  100 
EKDIF 
INEN*0 

C  USER  SELECTS  DESIRED  MODULE 
CALL  MODULI 1NEN) 

CALL  DBHED 

C  DATA  BASE  ENTRY  OPTIONS  DISPLAYED 

120  CALL  DBE 

130  NRITEU. ’  1/131, "WHICH  OPTION?  ”,*>’) 

READI5,’ (Al)’)P(l) 

CALL  CHE0K2 IP, 1 , 5, INVAL , INEW) 

IFIINVAL  .ED. 1 'THEN 
NRITEU,  110) 

60  TO  120 
END  IF 

60  T0I140, 140.140, 150.1601INEN 

C  ALL  VALUES  INITIALIZED  TO  ZERO 

140  CALL  IN1T 

NRITEIl,’ (A)’)CHPR(12) 

IF! INEW  .ED.  DTKEN 

C  USER  HAS  SELECTED  TO  ENTER  MODEL  WITH  SUBSCRIPTS 
IFLA3I5I-0 
CALl  GENIF 
CALL  DATAS 
SO  TO  200 

ELSEIF IINEN  .EQ.  2) THEN 

C  USER  HAS  SELECTED  TO  ENTER  MODEL  WITH  NAMES 
IFLASIS'M 
CALL  8ENIF 
CALL  DATAN 
60  TO  200 
ELSE 

C  USER  HAS  SELECTED  TO  READ  MODEL  FROM  DISK 
CALL  DATftB 
SO  TO  200 
ENDIF 

150  CALL  INTRO 

C  USER  HAS  SELECTED  TO  REVIEW  INTRODUCTORY  REMARKS 

SO  TO  120 

160  STOP 

C  DATA  BASE  MANAGEMENT  OPTIONS  DISPLAYED 

200  CALL  DBM 

210  NRITEU,’ (U3X.”HHICH  OPTION? 

READ'S.’ (Al)’)P(l) 

CALI  CHECK2 IF , 1, 5, INVAL. INEW) 

IFIINVAL  .E8.DTHEN 
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MITE  1 1,110) 

60  TO  210 
ENDIF 

NRlTE(l,’<A)’)CHARd2) 

SO  10(220,230.240, 250, 250, 270) IDEM 
220  !FLA8(9)*0 

C  INPUT  MODEL  IS  DISPLAYED 

CALL  DISPLY 
60  TO  200 

C  CONTROL  PASSED  TO  EDITING  SUBROUTINE 

230  CALL  EDIT 
SO  TO  200 

C  INPUT  MODEL  IS  SAVED  TO  DISK 
240  CALl  SAVE 
80  TO  200 

C  CHECKS  TO  INSURE  MODEL  SAVED  TO  DISK  PRIOR  TO  TERMINATION 
250  IF ( IFLA6 (2)  .E9.  0) THEN 
WRITE'.  1,260) 

260  FORNAT ( 10(/) ,  151,  'NAANINfl ) !  ’  /«.  'CURRENT  FILE  NIL L  BE  LOST.”// 
.131, ’CONTINUE?  iVH)  ’,*) 

READ(5.MA)’)PU) 
lFdCHAR(Pd))  .EB.  89) THEN 
IFdNEN  ,E3.  4) THEN 

C  USER  HAS  CHOSEN  TO  RETURN  TO  NANA6EHENT  MENU 

SO  TO  120 
ELSE 

50  TO  280 
ENDIF 

ELSEIF ( ICHAR  <P < j ) )  .Efl.  78) THEN 
SO  TO  200 
ELSE 

HRITE (1,110) 

SO  TO  250 
ENDIF 
ENOIF 

IFdNEN  .EO.  4) THEN 
GO  TO  120 
ELSE 

SO  TO  280 
ENDIF 

270  WRITEt 1,260) 

READ  <5. ’ (Ai’)p(l) 

IFdCHAR(Pd))  .Efl.  8?) THEN 
STOP 
ELSE 

60  TO  200 

ENDIF 

C  EXECUTION  NANA6EKENT  OPTIONS  DISPLAYED 
200  CALL  DEN 

290  NRJT£d,’!/13X.”NHICH  OPTION?  ”,<)’) 

REACTS, ’ (A) ’ )P(1> 

CALL  CHECK2IP, 1,5, INVAL, INEW) 
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IFdNVAL  ,E8,  l (THEN 
WRITE  11, 110) 

80  TO  290 
END  IF 

WRITE  d,MA)’)CHAR<  12) 
3010(300,100,300,200, 160) INEW 
C  USER  SELECTS  NEXT  NODULE  DESIRED 
300  CALL  NODUKIHEti) 

STOP 

END 


c it  I  I » I l i ♦  ♦  I  I t I »  I  t  l  t  i  l  l  t  »  l  l  l  t  l  *  I  «  I  I  » 

C  NODULE  i  UNIT11  t 

C  UNIT  (USES:  UNIT12  THRU  UNIT17  * 

C  t 

C  SUBROUTINE  CAT AS  t 

C  USE:  SOLICITS  INPUT  OF  OBJECTIVE  FUNCTION  AND  CONSTRAINT  » 

C  COEFFICIENTS.  CONSTRAINT  INEQUALITIES  AND  RHS’S  FOR  LP  MODELS  t 
C  WHICH  VARIABLES  ARE  DESIGNATED  BY  SUBSCRIPT  ONLY.  USED  ONLY  I 
C  FOR  INPUT  OF  NEN  MODELS.  I 

C  CALLED  BY:  NONE  I 

C  CALLS  :  SUBROUTINE  CHECK (P, INVAL.RNEN)  t 

C  SUBROUTINE  CHECK3(P,INVAL,IN£N)  t 

C  SUBROUTINE  ICMCH  t 

C  SUBROUTINE  OBJCH  » 

C  VARIABLES:  t 

C  USED:  INEH,INVAL,K,MM,PN,fiNEN,V  I 

C  MODIFIED:  A<«, t) ,B <*) ,C :» » . IFLA6<2) . IFLftB (3) , IFLA6i4) , IFLA6«B> ,  » 

C  INEB(*),NEC.NeCfNLC,Pm.PINEQ*»)  t 

C  »  I  I  I  >  I  »  I  *  I  5  I  I  t  t  I  I  I  t  I  *  I  I  I  I  I  »  »  *  I  I  »  I  t  » 

♦USES  UCHECK  IN  UNI T17. CODE  OVERLAY 
♦USES  USAVE  IN  UNIT16.C0DE  OVERLAY 
♦USES  UICNRCH  IN  UNIT  IS. CODE  OVERLAY 
♦USES  UCNVA  IN  UN  ITU  .CODE  OVERLAY 
♦USES  'JABVAfi  IN  UKIT13.CQDE  OVERLAY 
(USES  'JED IT  iN  UMIT12.C0DE  OVERLAY 
SUBROUTINE  DATAS 

CHARACTER  mb, CN»A, FN»20, HMI3, FNI10.PINEQI1 , Pll , 08JNI10 
INTESER  V 

CCNMON.'C  1  /A  120. 40) ,  P  <20> ,  C  (40) ,  J.NE3  f  20) ,  J  FLAB  < 1 0) , NEC, N6C , NIC , K . V, 

.MXMN 

C0MM0N/C2/VN(40) ,CN(?Oi ,PN.MM,FN,PINE5(20).P(1 0) ,OBJN 
WRITE  U . 100 » CHAR ( 12J 
100  FORMAT (A) 

HR  I  TEfljM/BV’ OBJECTIVE  FUNCTION  INPUT” ///IX, ’'INPUT  THE  f  UNLIT 
.ON  AS  IF  IT  HERE  IN  TH£”/UX, ’’FOLLOWING  FORM”/:X,”I  =  XU)  ♦  X 
.(2)  ♦  X(3)  ♦  ETC.’7)'i 

WRITE U , ’  (IX, ”A  MAXIMUM  OF  10  ENTRIES  PER  COEFFICIENT” 

./IX.”  INCLUDING  DECIMAL  AND  SiSN  ARE  ALLONED.”//tX,”IF  COEFFICIE 
.NT  is  ZERO,  HIT  "RET URN‘ ” / iOX , ' ’ WITHOUT  DIGIT  ENTRY.”, 6!/))’) 
PAUSE 

no  WRITE  U ,  lOOCHAR  U2) 

HR!TE!1,120)PN,MM 

120  FORMAT (5X, 'PROBLEM  ID:  ’,A20,/3X, ’OBJECTIVE  FUNCTION  INPUT’ /MX. A3 
.,’IMIIATION',/: 

C  OBJECTIVE  COEFFICIENTS  INPUT  BY  USER 
DO  1B0  J*1,V 
130  WRITE  < 1 , 140)0 

140  F0RMAT(8X,’Ci',12,’)  *  ’,♦) 

READ'S,’ fl3Al!’)(P(Il,M, 1C) 

CALL  CHECKIP.INVAL.PNEHI 
IFdNVAL  .E3.  DTHEN 
HRITEX1, 150) 


ISO  F0RHATI/5X,’ INVALID  ENTRY,  PLEASE  REENTER’) 

GO  TO  130 
ELSE 

CORNER 
END  IF 
160  CONTINUE 

NRITEU,  ’<///)’> 

PAUSE 

C  HGDEL  IS  IN  Z*X  FORM 
IFLA6I*)=0 

170  NRITEU.  100)CHAR(12) 

NRITEU,  120)PN,NH 
NRITEIl, 180! 

180  F0RNAT(!0*/).7X.’ARE  CORRECTIONS  NEEDED?  ’.*) 

READ'S, ’(Al)')P(li 
IFUCHAR'PU))  -EQ.  89)  THEN 
IFLAS(8I*0 

C  CONTROL  PASSED  TO  OBJ  FUNCTION  EDITING  ROUTINE 
CALL  OBJCH 
SO  TO  19C 

ELScIrllCHARIPU))  .HE.  78) THEN 
NRITEIl, 150) 

SO  TO  170 
END  IF 

190  NRITEIl, 100)CHAR(12) 

NRITEIl,’ (12X, ’’CONSTRAINT  INPUT” //"INPUT  CONSTRAINT  VARIABLE  CO 
.EFFICIENTS”/” AS  IF  THE  CONSTRAINT  NAS  IN  TH£r ’ /’ 'FOLLOWING  FORK 
.”/6X,”:<ll)  +  <<2)  ♦  *13)  <«>  RH3”/)M 
NRITEIl,1  ("THE  VARIABLE  COEFFICIENTS  ARE  A  MAX  I  NUN” 

./"OF  10  CHARACTERS.”//” IF  COEFFICIENT  iS  ZERO,  ENTER  0  OR  HIT” 
./’’-RETURN-  NITHOUT  ENTRY.”)’) 

NRITEil,’ (/’’THE  LESS-TIIAN  K)  REPRESENTS  A  LE5S-THAN”/”QR  EGUAl 
.  INEQUALITY. ’ ‘ //’ ’THE  6REATER-THAN  (»  REPRESENTS  A”/” SREATER-TH 
.AN  OR  EQUAL  JNEfiUAlITY.” //’’NEGATIVE  RHS  IS  PERMITTED.”,/*’) 
PAUSE 

NRITEil, 100) CHAR (12) 

C  CONSTRAINT  COEFFICIENTS  INPUT  BY  USER 
DO  270  1*1, K 
2C0  NRITEU,  ZlOtPN,  I 

2)0  FORMAT (SX. ’PROBLEM  IDs  ’,A20,/iZX, ’CONSTRAINT  ’,12,/) 

DO  240  J=1 , V 
220  NRITEU, 230)0 

230  F0RHAT(UI,’X(’,!2. ’)  *  ’,*» 

READ'S, ’ * 10AI) ’ ) <F<L ) ,L-l, 10) 

CA’wL  CHECK  IP,  INVAL,RNEN) 

IFUNVAL  .EQ.  DTHEN 
NRITEU,  150) 

SO  TO  220 
ELSE 

A(I,J)*RNEN 
END  IF 

240  CONTINUE 
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C  CONSTRAINT  INEQUALITY  INPUT  BY  USER 
250  WRITE  11,  Mi*,  ’’INEQUALITY  ’•,$)’) 
READISj’IAD’IPIl) 

CALL  CHECK'!?, INVAL,INEN) 

IFdNVAL  .EB.  DTHEN 
WRITE (1,150) 

30  TO  250 
ELSE 

INEfidt'INEN 

ENOIF 

C  COUNT  OF  EACH  TYPE  INEQUALITY  PERFORNED 
IFtINEN  .EB.  0 > THEN 
NLC=NLC  *  1 
PiNEQd)*’<’ 

ELSEIFfIKEW  .EB. DTHEN 
N6C*N6C  ♦  1 
PINEfi i 1) =’ >’ 

ELSE 

NEC*NEC  ♦  1 
PINEQ(lt=?s’ 

END1F 

C  CONSTRAINT  RHS  INPUT  BY  USER 

260  WRITE(l,’d3X,”RKS  =  ",%)’) 

READ'S,  MlOftD'i  (P(L) ,L®1, 10> 

CALL  CHECK ( P , I NVAL . RNEU ) 

IFdNVAL  .EB.  DTHEN 
NRITEd,i50) 

SO  TO  260 
ELSE 

BU>*RNEW 

ENOIF 

NRITE(1,I00*CHARU2»  , 

270  CONTINUE 
280  NRiT£(l,100)CKAR(!2) 

WRITE il,!80> 

READ(5,’  (AD')P(D 
IFdCHARiPtl))  .EB.  81 1  THEN 
C  CONTROL  PASSED  TO  CONSTRAINT  CHANGE  ROUTINE 
CALL  ICNPCH 
60  TO  290 

ELSclF(ICHAR(?d)i  .NE.  TO) THEN 
NRITEd.150) 

30  TO  280 
END  IF 

290  IFLAS<2)*0 
I FLAG ( 2) =0 
RETURN 
END 
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C  I  I  t  I  I  *  *  I  4  I  I  I  *  t  I  I  I  I  M  »  I  I  I  I  I  I  I  I  t  t  t  I  I  » 

C  NODULE  1  UNIT 11  » 

C  * 

£  SUBROUTINE  DATAN  » 

C  USE:  SOLICITS  INPUT  OF  OBJECTIVE  FUNCTION  AND  CONSTRAINT  I 

C  COEFFICIENTS,  CONSTRAINT  INEQUALITIES  AND  RHS’S  FOR  LP  MODEL  ♦ 

C  WHICH  VARIABLES  ARE  DESIGNATED  BY  WANED  VARIABLES,  t 

C  CONSTRAINTS.  AND  OBJECTIVE  FUNCTION.  USED  ONLY  FOR  INPUT  OF  » 

C  NEW  MODELS.  I 

C  CALLED  BY:  PROGRAM  DATAB  I 

C  CALLS  :  SUBROUTINE  CHECKiP, INVAL,RNEN)  t 

C  SUBROUTINE  CHECK3(P.INVAL,INEW)  I 

C  SUBROUTINE  ICNRCH  I 

C  SUBROUTINE  OBJCH  » 

C  SUBROUTINE  VNCH  t 

C  VARIABLES:  » 

C  USES:  INEW, 1 NVAL . K, HH , QBJN, PN, RNEN , V  I 

C  MODIFIED:  AIM'. Bill, C(l),CNU),!FLAe(2MFLfi6(3),IFLA6<4),  I 

C  IFLAS(b),  IFLA6(8i ,  INEOd'  ,NEC,NGC,NLC,Pd),PINEQi*),  t 

C  VNdi  » 

ctmmmmmmmmimmm 

SUBROUTINE  DATAN 

CHARACTER  VNI6,  CM6 ,  PNI20,  NH43,  FN410,  PINE8I1 ,  P»  I ,  0EJN4  *.0 
INTEGER  V 

CQHNOM/C1/A(2Q,60> ,B(20),C(60), INE0I2O) ,IFlA6(!0> ,NEC,NGC,NLC,K,V, 
.NXMN 

CQNH0N/C2/VN«6O) ,CH<20) ,?N,NN,FN,PINEQ(20) ,P(1C) ,Q8JN 
WRITE  ( 1 , 10*0)  CHfiR(  1 2) 

100  FORMAT fAf 

WRITE  (I,  ’CN/).SOX,”  VARIABLE  NAME  INPUT” //IX, ENTER  VARIABLE  NA 
.MES  WHICH  CORRESPOND  ”/3X,”  TO  THE  ”,12,”  VARIABLES  THAT  AFFECT 
, ”/15X, A10//”NAHES  ARE  TO  BE  a  CHARACTERS  OR  LESS. ” ,5</) ) ' >  V, 
.OBJN 
PAUSE 

WRiTEU,100)CHAR!I2) 

WRITE (1, 120! PN 

120  F0PNAT!5X,’PR0BLEH  ID:  ’,A20) 

WRITE  *11, 130> 

UO  FORMAT UOX, ’VARIABLE  NANE  INPUT’/) 

C  VARIABLE  HANES  INPUT  BY  USER 

DO  14?  J*1,V 

WPITE(l.’il3X,”X(”,12,”)  *  )J 
R£AD(5,’iA6)’/VN'J) 

140  CONTINUE 

ISO  WRITE;  1,1'W)CHARM2) 

WRITE » 1, 120-PN 
WRITEil,120> 

WRITE il,160) 

160  F0RNAT<11'/:.7X, 'ARE  CORRECTIONS  NEEDED?  *,») 

P.EADlS,’  iAl)’)P(l) 

IF<ICHAR<P< P )  .ED.  8V) THEN 

C  CON-ROL  PASSED  TO  VARIABLE  NANE  EDITING  ROUTINE 


:?5 


CALL  VNCH 

ELSEIFdCHAR(Pd))  .NE.  78) THEN 
NRITE(1,!70) 

170  F0RHAT!/5I,’ INVALID  ENTRY,  PLEASE  REENTER’ ) 

PAUSE 
60  TO  150 
ENDIF 

ISO  WRI!E(1,!00)C.HAR(12) 

WRI7£<1,’<7'/1,9)(,  ’’CONSTRAINT  NANE  INPUT ’’//"ENTER  CONSTRAINT  NA 
.NES  WHICH  CORRESPOND’ ’/’’TO  THE  ”.12,”  CONSTRAINTS  WHICH  AFFECT' 
.’/A10// ’’WANES  ARE  TO  BE  6  CHARACTERS  OR  LESS.”,4(/))’}K,06JN 
PAUSE 

KRITE(1,100)CHAR(12) 

NRITE(1,120)PN 
WRITE (1,190) 

190  FORMATS, ’CONSTRAINT  HANE  INPUT’/) 

C  CONSTRAINT  WANES  INPUT  BY  USER 

00  210  1*1,  X 

«RITE!1,’(9)(. ’’CONSTRAINT  ”,I2,”  *  ”,*)’)! 

READ(5,MA6)’)CN(I) 

210  CONTINUE 

220  klRITEU,100)CHAR!12) 

WRITE  (1,12<))PN 
WRITE* 1,190) 

WRITE (1,160) 

READ(5,MAl)’)P(l) 

IFdCHARfPd))  .Efl.  69) THEN 

C  FLAS  ALLOWS  ONLY  CONSTRAINT  NANE  CHANCE  TO  BE  PERFORNED  IN 
C  EDITINS  ROUTINE 

IFLA6(6M 
CALL  ICNRCH 
!FLA6(6)=0 

ELSEIFdCHAR(PiD)  .NE.  '8)THEN 
WRITE  ( 1 « 1 70) 

PAUSE 
60  TO  220 
ENDIF 

230  WRITE 'MOO!  CHAR  (12) 

WRlTEd,' ('ST, ’’OBJECTIVE  FUNCTION  INPUT” //IT, ’’INPUT  THE  FUNCT1D 
.N  AS  IF  IT  WERE  IN  W/ 131,  "FOLLOWING  FpRN”/3X,"Z  =  Xd)  ♦  .(( 
.2)  +  X<3>  ♦  ETC.”//!X,”A  HAUHUN  OF  10  ENTRIES  PER  COEFFICIENT” 
.)’) 

WRITE <  1 , ’ (IX.” INCLUQIN6  DECIMAL  AND  SI3N  ARE  ALLOWED.” //IT,” IF 
.COEFFICIENT  IS  ZERO,  HIT  'RETURN' " / 10 WITHOUT  DIBIT  ENTRY,”, 
,4(/)) ’ ) 

PAUSE 

WRITE (1.1 OO/CHAR (12) 

WRITE  d,  240' PN,OBJN,NN 

240  FORMAT <5X,’?RGBL£tI  10:  ’ ,A20,/OX, ’OBJECTIVE  FUNCTION  INPUT’ /7T.A10 
..2T,A3,'INIZATI0N’,/) 

DO  280  .1*1,  V 

C  OBJECTIVE  COEFFICIENTS  INPUT  BY  USER 
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250  NA1TE(1,260)J,VN(J) 

260  FCRHAT(7yc<’,I2,’)  *  ',*6,’  *  ’,») 

READ (5, ' (1041) ’ ' (P(I) , 1*1. 10) 

CALL  CHECK <P, INVAL, RNEU) 

IF  I INVAL  .E0.  1)THEN 
NRITE'1,170) 

60  TO  250 
ELSE 

C(J)*«NEN 
EN01F 
280  CONTINUE 
PAUSE 

C  NODEL  IS  IN  2«I  FORM 
!FLAGI4)*0 

290  KRITE(1,100)CHAR(12> 

HR1TE41. 240) PN, OBJN, HH 
WRITEf 1,160) 

READ'S, MAUMPU) 

IFdCHAfiiP'l))  .E3.  89 'THEN 
I FLAGS 8) *0 

C  CONTROL  PASSED  TO  OBJECTIVE  FUNCTION  EDITING  ROUTINE 
CALL  OBJCH 

ELSEIF(ICHAR-PU))  .NE.  78) THEN 
NRITEil, )70> 

PAUSE 
60  TO  290 
END  IF 

300  Wfi  I TE  ( 1 , 1 00)  CHAR  (12) 

NRITEU,’!i2)l, "CONSTRAINT  INPUT”//” INPUT  CONSTRAINT  VARIABLE  CO 
.EFFICIENTS” /’’AS  IF  THE  CONSTRAINT  NAS  IN  THE” '"F0LLQXIN6  FORN 
.’••/6X.”X!  1)  +  1(2)  ♦  Xi3)  <*>  RHS”>’> 

NR!TEft,M/”THE  VARIABLE  COEFFICIENTS  ARE  A  NAKIHUH” 

./”0F  10  CHARACTERS’ 7 /’’IF  COEFFICIENT  IS  ZERO,  ENTER  0  OR  HIT” 
./"■RETURN*  NilHCUT  ENTRY . ” ) ' ) 

NRiTE(i,M/”THE  LESS-THAN  «)  REPRESENTS  A  LESS-THAN” •  ” DR  EQUAL 
.  INE0UALITY.”//”7HE  SREATEF-THAN  (»  REPRESENTS  A”/”5REATER-TH 
.AN  OR  EQUAL  INEQUALITY. ’’//’’NE3ATIVE  RHS  IS  PERMITTED. ’’,/)’) 
PAUSE 

NR!TE(1,100)CHAR(12) 

C  CONSTRAINT  COEFFICIENTS  INPUT  BY  USER 
DO  400  1*1. K 
310  NRITEd,  <20)PN 

320  NRITEfl,’ (91, "CONSTRAINT  ”,12,”  *  ”,A6,/)’)I,CN(I) 

DO  350  J*l,v 

330  NRlTEil, 540)J,Vrt(J) 

340  FORMAT >71 ,'<(’, 12. ' )  *  ' ,A6, ’  *  ’,1) 

SEAD(5,M0A1)’MP(L),L=1.10) 

CALL  CHECK '.P,  INVAL, RNEN) 

IF (INVAL  .Efi.  1 ) THEN 
NRITEU,170) 

60  TO  330 
ELSE 
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ft«l.J)*RNEU 

ENDIF 

350  CONTINUE 

C  CONSTRAINT  INE8UAUTY  INPUT  BY  USER 

360  NRITEd,’ (7X,”lN£fll)ALlTY  ”,51,$)’) 

READI5.’(AD’)Pd) 

CALL  CHECK3 (P, INVAL , I NEN) 

IFdNVAL  .E3.  1 5 THEN 
NRITEU,17C) 

SO  TO  360 
ELSE 

INESUMNEN 

ENDIF 

C  COUNT  OF  EACH  TYPE  INEQUALITY  PERFORMED 

IF (I NEN  .£Q,  0) THEN 
NLCaNLC  ♦  1 
PINEQd)a’<” 

ELSEIFUNEN  ,E3.  DTHEN 
NSCaN8C  +  1 
F1NE0II)*’)’ 

ELSE 

NEC=NEC  ♦  1 
PINE9II)*'*' 

ENDIF 

C  CONSTRAINT  RHS  INPUT  BY  USER 

370  NRITEil,’!7X,”RHS”.121(,”*  ”,$>’) 

READI5, '  (lOAD’i  <P(L)  ,L*l,10) 

CALL  CKECKIP, INVAL, RNEN) 

IF  (INVAL  .Ed.  DTHEN 
WRITE  <  J , 170) 

50  TO  370 
ELSE 

B(I)*RNEN 

ENDIF 

WRITE  1 1 .  ’OOCHARC 12) 

400  CONTINUE 

410  NRITEI1,  JOOICHARUI) 

NRlTEd,160) 

REA0I5,MA1)”>PU> 

IFdCHAR(Pd))  .E3.  8?) THEN 
C  CONTROL  PASSED  TO  CONSTRAINT  CHANGE  ROUTINE 
CALL  ICNRCH 

ELSEIFdCHARIPO)  ,NE.  73)  THEN 
WRITE ( 1 ,170) 

PAUSE 
SO  TO  410 
ENDIF 

430  IFLAS!3i*0 
! FLAG  i2) =0 
RETURN 
END 
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C  I  *  I  I  »  I  «  I  *  I  I  t  I  I  I  I  t  I  I  *  I  I  I  I  I  I  I  I  t  I  I  I  »  I  » 

C  HGDULE  1  UNIT1Z  t 

C  UNIT  4USES:  UNIT13  THRU  UNIU7  I 

C  t 

C  SUBROUTINE  EDIT  » 

£  USE;  SOLICITS  USER  INPUT  OF  THE  TYPE  CHANGE  REQUIRED  TO  MODEL,  l 

C  SETS  FLAGS  AND  CALLS  PROPER  SUBROUTINE  TO  PERFORM  IMPUTED  t 

C  TYPE  CHANGE.  FLASS  CAUSE  ONLY  CHANGES  REQUESTED  TO  BE  I 

C  INITIALLY  ACCESSIBLE  TO  USER.  USED  TO  CORRECT  ROST  RECENT  t 

C  RODEL  INPUT  OR  EDIT  MODEL  READ  FP.CH  DISK.  I 

C  CALLED  BY:  PROGRAM  DATAB  I 

C  CALLS  :  SUBROUTINE  ADCON  I 

C  SUBROUTINE  ADVAR  t 

C  SUBROUTINE  CNVA  I 

C  SUBROUTINE  DELCDN  I 

£  SUBROUTINE  DELVAR  t 

C  SUBROUTINE  1CNRCH  » 

C  SUBROUT!*  QBJCH  t 

C  SUBROUTINE  VNCH  t 

C  VARIABLES:  I 

C  USED:  INEH, INVAL  t 

C  MODIFIED:  IFLAGI2), lrLA6(&), IFLA8IG! ,P(t)  I 

c  m  m  m  m  1 1 1 1  m  m  m  m  m  m  t 

♦USES  UCHECK  IN  UNIT!?. CODE  OVERLAY 
♦USES  USAYE  IN  UNIT16.C3DE  OVERLAY 
♦USES  UICNRCH  IN  UNIT1S.C0DE  OVERLAY 
♦USES  UCNVA  IN  UNIT14.C0DE  OVERLAY 
♦USES  UADVAfi  IN  UNIT13.CODE  OVERLAY 
SUBROUTINE  EDIT 

CHARACTER  VNIA.CN»6,?NI20.Rn*3,FNIi0,PIK3*!,P»l,OBJNI!O 
INTESER  V 

COHRGN/C1/A<2Q,&0),P<20)  ,£!&0),  INE9I20)  ,!FLAG(1')).NEl,N6C,KLC,K,V, 
.HXHN 

CORNON/C2/VN  (LO) , CN ( 20) , PN, MR, FN, P I NEB i 20 ) , P  U  O ) , OBJN 
100  NRITEU, 1IQ)CHAR(12) 

110  FQRHATlAi 

NRITEU,’ U2X,”  DATA  BASE  ED1T0R”//”Y0U  RAY  EDIT  THE  CURRENT  ROD 
.EL  IN  ANY  OF”/”THE  FOLLONING  MANNERS:”/”  i.  ADD  A  VARIABLE”/ 
.”2.  ADD  A  CONSTRAINT” /”3.  DELETE  A  VARIABLE”/” 4.  DELETE  A 
.  CONSTRAINT”)’) 

NRITEU,’  (”5.  CHANSE  COEFFICIENT  BY  CONSTRAINT” /” 6.  CHANSE  CO 
.EFFICIENTS  BY  VARIABLE”)’) 

NRITEU, ’(”7.  CHANGE  RHS  OF  CONSTRAINT” /” 8.  CHANSE  CONSTRAINT 
.  INEQUALITY”/”?.  CHANGE  OBJECTIVE  FUNCTION  C0ST”/4X,”C0EFFICI 
.ENTS”/”  10.  CHANGE  RAX IRIZATION/RINIRIZATION’ ’ ) ' ) 

NRITEU,’  ;4X,‘ ’CHOICE”/”  11.  CHANGE  VARIABLE  NAREB”/”12.  CHANSE 
.  CONSTRAINT  NARES”/”13.  RETURN  TO  LAST  RENf”/4Y,” (DATA  BASE  RA 
.NAGERENT)”!’) 

C  USER  INPUTS  THE  TYPE  CHANGE  DESIRED  IN  MODEL 
120  NRITEU,’ </13X,”NHICH  OPTION?  ”,♦)’> 

READ'3,’(2A1)MPU),P(2) 

CALL  CHECK2IP,2, 13, INVAL, INEN) 


22? 


JFilNVAL  .EG.  1 ) THEN 

NRITEil,M5X.”  INVALID  ENTRY,  PLEASE  REENTER’')’) 

60  TO  120 
ENDIF 

GOTO!  210, 220. 230, 240, 250,  ltd,  270, 230, 290, 3G0, 310, 320, 330HNEN 
C  CONTROL  IS  PASSED  TO  APPROPRIATE  ROUTINE  WITH  FLA65  DESIGNATING 
C  TYPE  CHANGE  ALLOWED  TO  EE  PERFORMED 
210  CALL  ADVAR 
60  TO  340 
220  CALL  ADCON 
SO  TO  340 
230  CALL  DELVAR 
SO  TO  340 
240  CALL  DELCON 
30  TO  340 
250  1FLA6(4)*1 

CALL  ICNRCH 
SO  TO  340 
260  CALL  CNVA 
30  TO  340 
270  IFLA6(6)*3 

CALL  ICNRCH 
60  TO  340 
2S0  IFLA6 (6 ) =2 
CALL  ICNRCH 
60  TO  340 
290  IFLAS<8>=1 
CALL  OBJCH 
SO  TO  340 
300  IFLA6(6)*2 

CALL  OBJCH 
60  TO  340 
310  CALL  VMCH 
60  TO  340 
320  IFLA6(6)»4 

CALL  ICNRCH 
60  TO  340 
330  RETURN 

C  FLAGS  RESET  TO  DEFAULT  VALUES 
340  IFLAS(2/«0 
•FLA6(6)*0 
;FLA6‘B)*0 
GO  TO  100 
END 
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c  I  t  I  I  I  I  «  I  »  *  I  I  I  *  I  »  t  I  *  I  *  I  »  I  I  I  «  I  t  »  «  *  I  I  I 

C  HOWIE  1  UNIT  12  t 

C  I 

C  SUBROUTINE  VNCH  ( 

C  USE:  PERFORM  USER  DESIRED  CHMffS  TO  VARIABLE  KANES  OF  A  HQDEL  t 

C  NHICH  HAS  BEEN  DES I SKATED  INITIALLY  AS  A  NO DEL  CONTAINING  t 

C  NAMED  VARIABLES.  t 

C  CALLED  BY:  SUBROUTINE  DATAN  t 

C  SUBROUTINE  EDIT  ( 

C  CALLS  :  SUBROUTINE  CKECX2!P,N,N,INVAL,IN£N)  t 

C  VARIABLES:  I 

C  USED:  IFLA6IS) , I KEN, INVAL.V  t 

C  MODIFIED;  IFLA6I2) ,P(l),RES.VNt»)  I 

c  i  »  i  i  i  i  i  » i  t  t »  i  i  i i * i i t  t  t  t i i i t  t  i * i ii t i 

SUBROUTINE  VNCH 

CHARACTER  VN»6,CNI4.PNI2O.HH*3,FNI10.PJNEe>l,Pli.QBJN»lO,R£St6 
INTEfiER  V 

CGHMON/C!/A(2O,6O),B(2O),C(60),IMEQ(2O),IFLA6i!0).NE[,N3C.NLC,K,V, 

.mm 

C(»W0N;C2/VNIB0),CN(20)lPN,i*N)FN,PINE9(20!,P(10).0BiN 

MRITEU.IO0SCHARU2) 

100  FORNA.TiA) 

IFUFLASI5)  .EQ.  OITKEN 

NRITEU.' (7(/i, IS), ’’MISTAKE!” '/'’THE  MODEL  BEING  EDITED  DDES  N 
.OT  INCLUDE”.'” VARIABLE  NAMES,  ONLY  SUBSCRIPTS. ”//”YOU  ARE  BEING 
.  RETURNED  TO  THE  DATA  BASE’ ’EDITOR” //)’ ) 

PAUSE 
RETURN 
END  IF 

110  NRITE(1.100!CHAR(12) 

KRITEtl, ’ !1K/),”B0  YOU  NANT  PRESENT  NAMES  DISPLAYED?  ”,*)’> 

READ (5, ’ (Al) ’ )F(1) 

IFdCHAP<?d)>  .EQ.  8?) THEN 
NRITE'1.100!CHAR<I2) 

NRITEU,’  UII, ’’VARIABLE  NAMES”/)’) 

DO  140  J=i,V 
NRITE(!,120)J,VN'.J) 

320  FORMAT <1331, ' XT’ ,  12, ’ >  *  ’,.46) 

140  CONTINUE 

PAUSE 

ELSEIFdCHARIPd)!  .ME.  78'. THEN 
NRITEd,160) 

160  F0RMATI/5X, ’INVALID  ENTRY,  PLEASE  REENTER’) 

GO  TO  1 10 
ENOIF 

180  4RiTEU,100)CHARd2) 

190  NRI7EM.M  4(/), ’’NHICH  VARIABLE  NAME  IS  TO  BE  CHANBED’”’/6X,”PLE 
.ASE  ENTER  SUBSCRIPT  VALUE.”;’) 

200  NRITcd.M/lOX,”  VARIABLE  W)  *  ”.*)’) 

REA0(5,M2Al)’)Pdi,P(2) 

CALL  CHECK2IP.2, V, INVAL, INEN) 

IFdKVAL  .ES.  I  (THEN 
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ju: 


MITEtl'liO) 

60  TO  200 
EHDIF 

NR1TEU,  ’  I//10X, '  ’FRESENT’  * ,  7X,  ’  'DESIRED*  '/111, '  ’  NAHE’  ’ ,  tOX.  ”NA«E 
.”/)’) 

NRITEil,’ii0X,A6,8X,$)’>VNIINEH) 

READ ( 5, ’ ( A6> ’ )  RES 

C  USER  3IVEN  OPTION  TO  DELETE  REQUESTED  CHAN3E 
220  NRlTEd.M/flV'iS  CHANSE  STILL  DESIRED?  ”,$)’) 

R£AD<5,’<AlJ’tPil.l 
IFdCHAR(P'l))  .ED.  6?) THEN 
VNdNEN)*RES 

NRITEd,’  f/llX,”  1  SHANK  COMPLETED’  ’ )  ’ ) 

PAUSE 

ELSElFdCHARiPd/'  .11.  78) THEN 
NRITEd,’</ilX,”HG  CHAN6E3  PERFORMED") ’ ) 

PAUSE 

ELSE 

HRITE 11,160) 

SO  TO  220 
END1F 

230  WRITE  < 1 , 100) CHAR (12) 

HRITEIi,’ 111'/), IX,' 'FURTHER  VARIABLE  NAHE  CHANEES  NEEDED?” MX, 

.$)') 

READI5, ’ (Alt’ 'Fill 

IF(ICHAR(P(D)  .EC.  89) THEN  •  . 

WITE(1,100)CHARU2) 

60  TO  110 

FLPEIF ( ICHAR (P ( 1 ) )  .EC.  78) THEN 
IFLA6(2)=0 
RETURN 
ELSE 

WRITE  < 1 y 160) 

SO  TO  230 

ENDIF 

END 
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c  M  I  I  I  I  I  I  I  I  *  F  I  I  I  I  I  I  I  »  t  I  I  I  I  *  t  t  »  »  I  l  I  I  I 

C  MODULE  1  UNIT  13  I 

C  UNIT  FUSES:  UNIT14  AND  UNIT17  * 

C  * 

C  SUBROUTINE  ADVAR  » 

C  USE:  PERFORMS  THE  ADDITIOM  OF  A  VARIABLE  TO  THE  MODEL  BV  I 

C  SOLICITING  USER  INPUTS  FOR  VARIABLE  COEFFICIENTS  IN  ALL  t 

C  CONSTRAINTS.  MODIFIES  NECESSARY  VARIABLES  TO  REFLECT  i 

C  ADDITION  OF  VARIABLE  TO  MODEL  AND  REORGANIZES  DATA  IN  ARRAYS.  I 
C  CALLED  BY:  SUBROUTINE  EDIT  I 

C  CALLS  :  SUBROUTINE  CHECK (P,INVAL,RHEH)  $ 

C  SUBROUTINE  CHECK2(P.N,M,INVAL,IMEN,)  » 

C  SUBROUTINE  CNVA  t 

C  SUBROUTINE  OBJCH  » 

C  VARIABLES:  t 

C  USED:  CN!D,IFLAE!5).3NEN, INVAL.X.RNEW  I 

C  MODIFIED:  AU,l),CU),IFLAS(2).P(l),V.VNll)  t 

CtttttttltttttttttfMtttttttfMttttt 
FUSES  UCHECK  IN  UNIT17.CCDE  OVERLAY 
FUSES  UCNVA  IN  UNITU.CODE  OVERLAY 
SUBROUTINE  ADVAR 

CHARACTER  VN}6,CNIA,PNt2C,HHt3,l;Nfl0,PINEBII,Ptl,DBJN,»10 
INTEGER  V 

CGMNON/Cl/A(29,6O),Bt2O),C(o0),INES(29),IFLA5(}O) ,NEC,N5C,NLC,K,V, 
.  NXNH 

C0MM0N/C2/VN(60>.CN(2('),PM,MM,FN.PIHEB'20),P(1C),CBJN 
!<)0  NRITEIi,llO)CHAR(t2) 

110  FORMAT (A! 

C  NUMBER  OF  VARIABLES  INCREASED  BY  1 
V=V+1 

KRITEI1,130)PN 

130  FORNAX (51,’ PROBLEM  ID:  \A20> 

C  DETERMINES  IF  MODEL  CONTAINS  NAMES 
IF(IFLAGiS)  .EQ.  OHHEN 
C  MODEL  DOES  CONTAIN  NAMES 

HRITEU.’tlOX, ’’VARIABLE  NAME  INPUT” .//’’ENTER  VARIABLE  NAME  NHI 
.CH  CORRESPONDS” /’’TO  VARIABLE  <(”. 12,”). ’’//"NAMES  ARE  TO  BE  i> 
.  CHARACTERS  OR  LESS,”)’JV 

NRITEU.MIOX,” VARIABLE  It”,  12,”)  *  ”,F)’)V 
READ(S,MA6)’jVNtV) 

NRITE(l,liO)CHARU2) 

NRI7EU,130)PN 

WITE!1,’(7X, ’’VARIABLE  COEFFICIENT  INPUT’ ’/8X, ’’VARIABLE  XI”, 1 
.2,”)  *  ”,A4,/)’)V,VN(V) 

C  VARIABLE  COEFFICIENT  INPUT  FOR  EACH  CONSTRAINT 
DO  200  1*1,  K 

140  NRITE(1,150>I.CN<I) 

150  FORMAT  FIX,  ’CONSTRAINT  t\!2,’l  *  ’,A6,»> 

FEAD<5,M0A1)’XP<L),L=U0) 

CALL  CHECKiP.INVAL.RNEN) 

IFCNVAL  .ED.  1 ) THEN 
NRITEt 1.170) 
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170  FORHAK/5X. ’INVALID  ENTRY,  PLEASE  REENTER’) 

SO  TO  140 
ELSE 

Ail,V)=RNEM 

END1F 

200  CONTINUE 

PAUSE 
ELSE 

C  MODEL  DOES  NOT  CONTAIN  HANES 

NRITEil,’  <7X,”  VARIABLE  COEFFICIENT  INPUT” /13X,” VARIABLE  X(”, 
.I2.”!”/)’)V 
DO  250  1*1.  X 
210  NRITEil, 229) I 

220  FORMAT (6K, ’CONSTRAINT  »’,I2.’  =  ’,»> 

RERDiS,’  il0Al)’HP(L*,L=l,10) 

CALL  CHECKiP, INVAL,RN£N) 

IFilNVAL  .EO.  1 ) THEN 
NRITEil, 170) 

60  TQ  210 
ELSE 

A(I,V)*RNEH 
END  IF 

250  CONTINUE 

PAUSE 
END  IF 

740  NRITEil, 110)CHAR(12) 

NRITEil, 130>PN 

C  VARIABLE  COST  COEFFICIENT  INPUT  BY  USER 
270  IF ( IFLAS(S)  .E3.  UTHEN 

NRITEil,’ >7X,” OBJECTIVE  COEFFICIENT  INPUT” /BX,” VARIABLE  Hi”. 
.12.”)  *  ”,A4)’)V,VNiV) 

NRITEil, 280) v 

280  F0RHATiy/llX,’Ci’,12,’)  *  ’,♦) 

READ (5,  ’  i  10A1 )  ’ )  iPiL)  ,L*1 , 10) 

ELSE 

NRITE!l,’i7X,”0BJECTIVE  COEFFICIENT  INPUT” /13X, ’’VARIABLE  X(” 
,,I2,”)”)’)V 
NRITEil, 280)V 

’  READ<5,’<10A1)’MPIL),I.»1,;0) 
t»DIF 

CALL  CHECKiP, IKVAU.RMEV) 

IF ( INVAL  .ES.  1 • THEN 
NRITEil, 170) 

SO  TQ  270 
END  IF 
C!V!=RNEN 

290  NRITEil, 110)CHAR!!2) 

NRITEil, 300) 

300  rORt1AT'll(/),7X,’APE  CORRECTIONS  NEEDED  ON  THIS  VARIABLE?’ /19X.I) 
READ(5,’(AIi')P*t) 

IFilCKAfi'Pil))  .Efi.  89’ THEN 
NRITEil, 110)CHAR'i2) 
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W>!TEU,’<8</t,10!i,”CHA»c6ES  REQUIRED  IN* ' * / /5X, ” i .  OBJECTIVE  C 
.OST  COEFFICIENT’ ’  / 191,  ”QR”  /5X,  ”  2.  CONSTRAINT  COEFFICIENT”)’) 
320  NRITE(!,’(/13I,”)iHICH  OPTION?  ”,*)’) 

READ15,’ (Al)’)P(i) 

CALL  CHECK2 (P, 1 , 2, INVAL, INEN) 

IK  INVAL  .EQ,  11THEN 
NRlTE'.l,  170) 

SO  ro  320 
ENOIF 

1F1INEH  .E6.  DTNEN 

C  USER  ELECTS  TO  CHANSE  COST  COEFFICIENTS 

CALL  QBJCH 
ELSE 

C  USER  ELECTS  TG  CHANCE  CCHSSTRAINT  COEFFICIENT 

CALL  C'NVA 
ENDIF 

EL5E1F<1CHAR<P<1 ) >  .NE.  78! THEN 
WRITE  < I T 170) 

SO  TO  290 
ENDIF 

330  WRITE  <1 , 110)CHAR  < 12) 

340  NRITE(l,Mil(/),8I,”ADD  ANOTHER  VARIABLE?  ”,*)’) 

READ (5. ’ (Al)’)P(l) 

IF <1CHAR<P<1 > >  .c«.  89) THEN 
C  USER  HAS  SELECTED  TO  ADD  ANOTHER  VARIABLE 
SO  71)  100 

ELSEIFiirHARIf"]))  .NE.  78) THEN 
N»ITEU,rO> 

60  TC  330 
ENDIF 
IFLA3<2)=0 
RETURN 
END 


C  t  t  t  t  t  t  t  t  t  t  I  t  t  t  t  t  t  t  t  t  t  M  t  t  t  t  I  t  t  I  t  I  t  t 
C  MODULE  1  UHIT13  I 

C  t 

C  SUBROUTINE  OBJCH  t 

C  USE:  PERFORMS  USER  INPUT  CHANGES  TO  OBJECTIVE  FUNCTION  « 

C  COEFFICIENTS  AND  NAXIHIZATION/TUNIHIZATIQN  CHOICE  OF  THE  I 

C  CURRENT  MODEL.  USED  IN  CORRECTION  OF  MIST  RECENT  MODEL  INPUT  I 

C  OP  NOBEL  FROM  DISK  BE I NS  EDITED.  t 

C  CALLED  BY:  SUBROUTINE  ADVAR  t 

C  SUBROUTINE  DATAN  t 

C  SUBROUTINE  DATAS  I 

C  SUBROUTINE  EDIT  I 

C  CALLS  :  SUBROUTINE  CHECK (P, 1NVAL.RNEN)  t 

C  SUBROUTINE  CHECK2(P,N.N,INVAL,INEN)  '  t 

C  VARIABLES:  t 

C  USED:  IFLAti(5>,2N£H,INVAL,OBJN,PK,RNEN,V,VN(»}  t 

C  MODIFIED:  C<»),IFLAS<2),IFLA6(8),HN,HXKN.F(t)  I 

SUBROUTINE  OBJCH 

CHARACTER  VNI6.CHf6,PN420,Hni3,FNtl0,PlNEQ»l,P»l,0BJNtl0 
INTEGER  V 

CONHON/C1/A(20.60)  ,B'.20)  ,C(60) ,  INE3I20) ,  IFLA6UC)  ,NEC,NGC,NLC,K,V, 

.NXNN 

C0HHON/C2A'N(40)  ,CN(20),PN,NH,FN(P!NEQ<20)  ,P(10),  OBJN 
100  NRITE(t.llO)CHAR(l2t 
110  FORMAT  < A) 

IF'IFLASIB)  -  1)  120.200, 400 
C  ACCESS  TO  CHANGE  ALL  GF  OBJ  FUNCTION 
120  If  UFLA013)  .Efl.  O' THEN 
NRITEU.130-PMN 

130  FORMAT'S?. ' PROBLEM  ID:  ’.A20/7X,  OBJECTIVE  FUNCTION  CHANGE’ /MX, 
,A3,  ’  INIZATIONV) 

ELSE 

NRITEU,140>PN,0BJN,NH 

140  FORMAT ‘5X , ’ PROBLEM  ID:  \h20/7X,' OBJECTIVE  FUNCTION  CKAN6E’/7X.A 

, 1 0. 2X. A3, ’ 1MI ZATIOH’ / • 

END1F 

WITE(l,’i//2X,”NHlCH  OF  tHE  BELON  REQUIRES  CHANGES?” //4X,”1.  C 
.GST  C0EFFICIENTS”/1?X,”3R”/4X,”2.  MAXINIZATION/NININIZATION  CH 
.DICE”)’) 

150  NRITE(I,’<713X,”NHICH  OPTION?  ”.*)•> 

READ<5,MAl>'iP0* 

CALL  CHECK2(P, 1,2. INVAL, IHEM> 

IFlINVAL  .EQ.  1 ) THEN 
HRITEi 1,160) 

14C  F0R«AT(/5S,’ INVALID  FNTRY,  PLEASE  REENTER’) 

50  TO  ISO 
END  IF 

WITEn.llO)CHAR(12! 

60TO:200,400>INEN 

C  ACCESS  TO  CHANGE  OBJ  FUNCTION  COEFFICIENTS  ONLY 
20*)  IF •  IFLASI5)  .EQ.  0) THEM 


210 


230 


250 


240 


270 


260 


WRITEd, 130)PN,IW 
ELSE 

WRITEd, 140!PN.G5JN, HR 
END1F 

WRITEd,’ I////2X, "DISPLAY  THE  PRESENT  COEFFICIENTS?  ”,!)’) 
READI5,’ (Al)’iPd) 

IF <ICHAR<P<D )  .ES.  8?) THEN 
WRITEd,  110)CHARd2> 

JFIIFLASIS)  .EB.  01THEN 
WRITEd, 130)PN,HN 
ELSE 

WRITE  <1,140) PN,OBJN, HK 
ENCIF 

DO  230  J=1,V 
IFIIFLA6(5)  .EQ.  0) THEN 

WRITEd,’ dOX,  "Cl”,  12,”)  *  ”,1?E12.5)')3,CU) 

ELSE 

WRITEd, ’I5X,”  Cl”,  12,")  =  ”,A6,"  =  * J ,  iPE12. 5) ' )  J,  VN(  J) 

.,C(J) 

ENDiF 

CONTINUE 

PAUSE 

WRITEd,  110)CHARd2) 

ElSEIFIJCHAfiiPd))  ,KE.  ’8) THEN 
WRITE d, 140) 

BC  TQ  210 
ENDIF 

WRITEd,  llO>CHARI12) 

IFIIFLA613)  .EB.  0 ) THEN 
WRITEd,  !30)PK,NH 
ELSE 

WRITEd, !40)PNtflBJN,NH 
ENDIF 

WRITEd, M//3X, "WHICH  COEFFICIENT  IS  TO  BE  CHAN6ED’"/6X,’ ’PLEASE 
.  ENTER  SUBSCRIPT  VALUE.”)’) 

WRITE'l,’ i/75." COST  COEFFICIENT  C(?)  *  ’’,*)’) 

REA0I5,’ (2A1)’)P(1),P(2) 

CALL  CHECK2(P,2, V, INVAL, I NEW) 

IFdNVAL  .EB.  I ) THEN 
WRITEd, 160 
60  TO  260 
ENDIF 

WRITEd, ’!/6X, "PRESENT’ ’.14X,’'DESIPED"/7X.”C<’’,I2,")”,16X, 

. ’ ’Cl  ” , 12, " ) : ’ >  ’ !  INEW,  INtW 
WRITEd,  ’<3X,IPE12.3,?X.«)’)C(1NEN> 

READI5, ’d0Al)’MP(L),Lsl,10) 

CALL  CHECK IP, INVAL, RNEW) 

IFdNVAL  .EC.  DTHEH 
WRITEd,  160) 

50  TO  270 
ENDIF 

WRITEd, M/3X,” IS  CHAN6E  STILL  DESIRED?  ’’,$)’) 
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REA0(5,’(A1)’)P<1) 

I F ( I  CHAR  < P ( 1 ) )  .E8.  89) THEM 
C(INEH)*PNEN 
WRITEt 1,290) 

290  FORMAT  CHANGE  COMPLETED' > 

PAUSE 

ELSc!F(!CHAR!?(D)  .£8.  78) THEN 
MNITEil,300) 

300  FORMAT!/ 10X. ’ NO  CHANGES  PERFORMED’ ) 

PAUSE 

ELSE 

NRITE(1,16'J) 

60  TO  280 
END  IF 

310  NRlTEU,110!CHARi;2) 

NRITEI1, Mill/), ’’FURTHER  COST  COEFFICIENT  CHANGES?  ”,*)’> 
READ15,’  (AD’JPU) 

IF ( 1CHAR (P ( 1 ) )  .£8,  89) THEN 
HRlTSii,!10)CHAR(12! 

60  TO  250 

ELSEIFiICHAfi<P<D)  .NE.  78) THEN 
WRITE  1 1 ,  taO) 

60  TO  310 
END  IF 

330  NR1TE(1,110)CHAR(12) 

340  WRITE ( 1 ,350? 

350  FORMAT  Till/), ’FURTHER  OBJECTIVE  FUNCTION  CHAH6E5?  ’.*) 
READ(5,’ fAl)’)P(t) 

IFlICHARiP(l))  .E8.  89- THEN 
WRITEx 1 , 1 lOf CHAR< 12) 

SO  TG  120 

EI.SEIFUCHAR(P'l))  .NE.  78) THEN 
NRITt'1,160) 

60  TO  330 
END  IF 
SO  TO  500 

C  ACCESS  TO  CHANSE  MAX/NIN  CHOICE 
400  NRI TE!  1,110)  CHAR  U2) 

IF(IFLA6(5)  .E0.  0) THEN 
WR1TE<1.130>PN,MM 
ELSE 

WRITE41, 140>PN, OBJW, MM 
END  IF 

WR! TE < 1 , ’ ( // 5X ,  ” PRESENT  CHOICE  IS  ” , A3, ”  IMIZATICM.  ” ) ’ )MM 
42-1  «RITt'I,’!/51,”N0ULD  ''00  LIKE  THIS  CHANGED?  ”.»)’> 

READ15.’  (Al)’)PU) 

IF ( {CHAR TP( 1 ) )  .EB.  9^) THEN 
IFtnXNN  .ES.DTHEN 
MXMN=0 
MM* 'MIN’ 

ELSE 

MXNN=I 


233 


NHs’lAX’ 

ERDIF 

WITE!lt2?0) 

ELSEIF(ICHAR(P<1))  .ES.  7B)THEH 
KRITE'1,3001 
ELSE 

WRITE (1,160) 

SO  TO  420 
ENDIF 

NRlTE(l,M4(/)t’: 

PAUSE 
60  TO  330 
500  IFLA6 (2)=0 

IFLAS(8)a0 
RETURN 
END 


c  I  I  I  I  I  «  I  l  St  I  I  I  I  I  t  t  *  I  I  I  I  I  t  t  I  I  M  I  I  I  I  I  » 

C  NODULE  1  UNIT13  t 

C  t 

C  SUBROUTINE  GENIF  * 

C  USE:  SOLICITS  INPUT  OF  THE  PROBLEM  HARE,  MAXIMIZATION/MIHIHIZATION  I 
C  CHOICE,  OBJECTIVE  FUNCTION  NAME,  NUMBER  OF  CONSTRAINTS  AND  » 

C  VARIABLES  FROM  USER.  USED  ONLY  FOR  INPUT  OF  NEW  HODELS.  t 

C  CALLED  BY:  PR06SAM  DATAB  I 

C  CALLS  :  SUBROUTINE  CHECK2(P,N,h,INVAL,INEW>  t 

£  VARIABLES:  * 

C  USED:  IFLA6-5>f INEW.INVAL  t 

C  MODIFIED:  K,MM,KXNN,QBJN,PU),FN,V  t 

C  I  I  t  M  I  I  l  I  I  I  t  I  I  t  t  I  I  t  I  I  I  I  I  I  I  *  I  I  I  I  t  I  I  I 
SUBROUTINE  GENIF 

CHARACTER  VN*6,CN»t,PNI20,1RI3,FN*i0,PINE5ll,Pll,Q8JN*l0 
INTEGER  V 

C0HNCN,(Cl/A<20,60>,8(20)(C<6O),INE6i20),IFLAS(!0).NEC,K6C,NlC,!(,V, 

.R1HN 

C0RR0N/C2/yN!60),CN(20),PN,RN,FN,P!NEB(20l,Pfl0),0BJN 
C  PROBLEM  NAME  ENTERED  FOR  NEW  MODEL 

NRITEU.M///7X, ’’ENTER  A  PFOBLEN  IDENTIFIER” /7X,” (HAXIHUN  OF  20 
.  CHARACTERS) -’//3.X, '’PROBLEM  ID  *  ”,*>’> 

P.EADI5,’  !A20>’)PN 
100  WRlTE<l,’('40<”t”>)’} 

C  NAX/HIN  CHOICE  ENTERED 

WRITE(1,M4(/),1X,”IS  PROBLEHS  OBJECTIVE  FUNCTION  TO  BE:”.//  MX, 
.”1.  HAX!»IZED”/19»,”0R”/14X,”2.  MINIMIZED”!’) 

110  WR1TEU,’ </l'X, ’’WHICH  OPTION? 

READ ( 5 , ’ (Al)’)P(l) 

CALL  CHECK2 (P,  1 , 2, INVAL, I NEW) 

IFIINVAL  ,E8.  I) THEN 
WRITE (1,120) 

120  ?3ar,ATf/5V ITALIC  ENTRY,  PLEASE  REENTER’) 

CO  TO  110 
ENBIF 
MXMN-INEM 

C  CHARACTER  STRING  ESTABLISHED  REPRESENTING  MAX/NJN  CHOICE 
IFdlXMN  ,E9.  DTHEN 
MM* ’MAX’ 

ELSE 

MH=’MIN’ 

END  IF 

I'(IFLAG(5)  .EP.  DTHEN 

C  MODEL  INCLUDES  NAMES  SO  OBJ  FUNCTION  NAME  INPUT 
WR1TE(1,’(A)’)CHAR<12! 

WRlTEfl,' (7(/),JX,”NHAT  IS  THE  NANE  OF  THE  OBJECTIVE  YOU”/D, 

.  11X”NANT  TO  ” , A3, ” IMiZE7’ ’ <71X, '  ’  (FOR  EXANFLE,  COST,  MANPOWER, 

.  ETC. )”//lX. ’’MAXIMUM  OF  10  CHARACTERS  ALLOWED” //«, "OBJECTIVE 
.  MANE  *  >HM 
READ<5.’(A1C)’)0BJN 
ENDIF 

WPITEd,’  (A)’  )CHAR(12) 
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C  NUMBER  OF  CONSTRAINTS  ENTERED 

WRITE) 1,’ (///IX, ’’ENTER  NUMBER  OF  CONSTRAINTS  IN  PROBLEM” / 131, ” ( 
.MAXIMUM  OF  20)”)’) 

130  NR ITE ( !,’< /VOX NUMBER  OF  CONSTRAINTS  *  ”,»)’) 

READ(5,M2A1)MP(1),P(2) 

CALL  CHECK2(P,2,29,1NVAL,INEW> 

IFtINVAL  .EG.  1 >  THEN 
WRi!E(l,120> 

SO  TO  130 
END  IF 
K«1NEW 

NfiITEU,'(///401”*”}>’) 

C  NUMBER  OF  VARIABLES  ENTERED 

WRITE  U ,'  (// /2T , ’ ’ ENTER  NUMBER  OF  VARIABLES  IN  PROBLEM” /13X,  ”  <HA 
.XINUM  OF  20) ” ) ’ > 

140  WRITE U, ’ (//9<, ’’NUMBER  OF  VARIABLES  =  ”,♦)’) 

RcAE(5,’(2Al)’)PU),P<2) 

CALL  CHECK2  { P ,  2 , 20 , !  NV AL ,  I NE W 
IFdNVAL  .EG.  1)TH£N 
WRITEil,120) 

GO  TO  MO 
END  IF 
Vs l NEW 

WRITEU,’(A)')CHAR!l2) 

RETURN 
END 
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C  t  t  t  I  I  «  t  t  t  t  t  t  t  i  i  t  t  t  I  (  I  i  t  I  t  t  1 1  t  I  I  I  t  t  I 
C  NODULE  1  UN1T14  t 

C  UNIT  (USES:  UNIT17  * 

C  t 

C  SUBROUTINE  CNVA  ( 

C  USE:  ALLOWS  NOBEL  COEFFICIENTS  TO  BE  CHANGED  BY  VARIABLE.  I 

C  SOLICITS  INPUT  OF  VARIABLE  COEFFICIENT  TO  BE  CHANGED  BY  t 

C  INPUT IN6  VARIABLE  NUMBER.  VARIABLE  COEFFICIENT  OF  SPECIFIED  I 

C  VARIABLE  NAY  BE  CHANGED  BY  DESIGNATING  CONSTRAINT  NUMBER  AND  I 

C  THE  DESIRED  COEFFICIENT.  I 

C  CALLED  BY:  SUBROUTINE  ADVAR  I 

C  SUBROUTINE  EDIT  I 

C  CALLS  :  SUBROUTINE  CHECK !P,!NVAL,RNEH)  t 

C  SUBROUTINE  CHECK2<P.N,H,1NVAL,INEM>  I 

C  VARIABLES:  I 

C  USED:  Ad,t)  ,CN!0 , lrLA6<5)  ,INEN,  INVAL,K,RNEN,V,  VN'.I)  > 

C  MODIFIED:  CNAK,CHAR0,IFLA6!2),Pd)  I 

nmmmmtmmimnmmm 

(USES  UCHECX  IN  UNIT17.CODE  OVERLAY 
SUBROUTINE  CNVA 

CHARACTER  VN»6.CNI6.PN*20,MMI3,FN»10.PINEQ»1,PI1,0BJN*10 
1NTE6ER  V,ChARO,CHAK 

C0HHON/Cl/A!20,60>,Bi20>,CdO),INE9<20i,IFLAG<lOI,NEC,NSC,NLC,K,V. 

.nm 

C3HWJN/C2/VN(A0),CN<20i.PN,MM,FN,PIN£fi(20).PU0),0BJN 
TOO  NR ITE  < 1 , 1 10) CHAR (12) 

110  FORMAT (A) 

WRITEU,’  '"WHICH  VARIABLE  COEFFICIENTS  REQUIRE" /!fcr ’CHANGES?"/ 
./«,' "PLEASE  ENTER  SUBSCRIPT  VALUE.” >’) 

130  NRITEU,’  i/lOX, "VARIABLE  X(?)  *  ”,()’) 

REA0!5,’ !2A1)’)P(1),P!2> 

CALL  CHECKUP, 2, V.  INVAL,  INEH) 

IFilNVAL  .EQ.  1)THEN 
WRITE! 1,140) 

140  FORMAT </5X,’ INVALID  ENTRY,  PLEASE  REENTEP') 

GO  TO  130 
END  IF 
CHAR* I NEW 

WRITE!!, liO)CHAR(12) 

NRITEI1,’ <2!(. "VARIABLE  COEFFICIENT  BY  CONSTRAINT ")’! 

IFIIFLAB/S)  .EQ.  DTHEN 

WRITE!!,’  (29X,A6/Z9X,"X:'’,I2,"}")’)'/N(CHAK),CHAK 
DO  ISO  1*1, K 

NRITE!l,’!2)(f” CONSTRAINT  #”,I2,27,A6,2X,lP,ElI.6)’)i,CNII>. 
.A(I.CHAX) 

160  CONTINUE 

PAUSE 
ELSE 

WRITE!!,  ’<29X,”X<",  12,  ”»”)')  CHAK 
DO  180  1*1, K 

NR!TE(t.’<2X, "CONSTRAINT  ,  12. 10X.E12.6) ’ » I , <A!I,CHAK) 

180  CONTINUE 
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190 


200 


210 


220 


230 


240 


PAUSE 
END  IF 

MRITE(1,110) CHAR< 12) 

NflITEd,’  (10(/), ’’WHICH  CDhSTRAIMT  PESUIRES  A  CHAN6E  IN” /9V 'THE 
.  XI”, 12,”)  COEFFICIENT?’ ’ /4X.  ’PLEASE  ENTER  CONSTRAINT  NUMBER.” 
.)’)CHAK 

NRITEU.’t/BX.  "CONSTRAINT  NUMBER  *  ”,♦>’> 

READ(5,’ (2Al)'!Pdl  ,P(2) 

CALL  CHECK2 ( P , 2, K , INVAL , 1NEW) 

IFdKVAL  .EG.  DTKEN 
WRITEd, 140) 

SO  TO  200 
END  IF 

CHARQ=!N9i 

WRITE  ( 1,  ’  (/6.X.  ’  ’PRESENT” ,  !4X,  ”  DESIRED’  ’  /7X.  ”  X  ( ” .  12,  ” )  ” .  ltX, 

.  ”  X !  ” ,  1 2,  ” )  ”  i  ’ )  ChAK ,  CHAK 
WRITEd,’  i3X,lPE12.5,9X.I)’)Ai.CHAR0,CHA)O 
READ(5, ’ t 10A1 i ' • (P(L) ,L*1 , 10) 

CALL  CH£CK(P. INVAL, RNEW; 

IF  (INVAL  .Ed.  DTHEN 
WRITE  ( 1 , 140) 

60  TO  210 
EH3IF 

WRITE U,’(/6/!,” IS  CHANGE  STILL  DESIRED?  ”,*)’) 

READ<5, ’ (Al) ’)P(l) 

IFdCHAR(Pd))  .EG.  891THEN 
A(CHARG,CHAK)*RNEW 

WRITE'!, M/llX,”t  CHANGE  COMPLETED”)’) 

PAUSE 

ELSEIFdCHARt?!*))  .E3.  78) THEN 
WRITEd,’  !/10X,”N0  CHAN6ES  PERFORMED”)’) 

PAUSE 

ELSE 

WRITEd.  140) 

3G  TO  220 
END  IF 

WRITE(l,U0>CHARd2i 

WRITEd, M10(/>, ’’FURTHER  COEFFICIENT  CHANGES  OF  SAHE”-”VARIABL 
.E  IN  DIFFERENT  C0NSTRA!NT?”/19X,»)’) 

REAB(5.’(A1;’)P(1) 

IF'ICHAR'PU))  .EG.  89) THEN 
SO  TO  190 

ELSEIFdCHAR(Pd))  .EG.  7B1THEN 
IFIAGOO 
RETURN 
ELSE 

WRITE (1,140) 

SC  TO  230 
END  IF 

WRITEd,  110!CHAR!12' 

WPITEd,’dO</>, ’’FURTHER  COEFFICIENT  CHANGES  OF  DIFFERENT” i”m 
.1ABLE?”/19X,$)’) 
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REAOtt.’lADMPm 
IFl!CHAR(P(D)  .Efi,  89 (THEN 
60  TO  100 

ELSE!F<ICHAR<PUH  .E3.  78! THEN 
IFLA6(2>*0 
RETURN 
ELSE 

WRI7E(lfi40) 

SO  TO  240 
END1F 
END 


244 
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ctmimmmimiimmmmm 

C  NODULE  1  UNIT14  t 

C  4 

C  SUBROUTINE  DELCQN  t 

C  USE:  PERFORMS  THE  DELETION  OF  A  CONSTRAINT  FROM  MODEL  BY  t 

C  SOLICITING  USER  INPUT  OF  CONSTRAINT  NUMBER.  MODIFIES  I 

C  NECESSARY  VARIABLES  TO  REFLECT  DELETION  OF  CONSTRAINT  AND  t 

C  RE0R6ANIZES  DATA  IN  ARRAYS.  I 

C  CALLED  BY:  SUBROUTINE  EDIT  t 

C  CALLS  :  SUBROUTINE  CHECK? (P,N,!UNVAL,INEN)  I 

C  VARIABLES:  t 

C  USED;  IFLA6<5),INEN,INVAL,V  t 

C  MODIFIED:  Ail,l), 8il), CN<*),lFLAG(2),INEB<t’.K.NEC, N8C, NLC, Pit),  t 

C  PINEfllt)  t 

C  I  *  t  I  I  I  I  I  »  I  I  I  I  I  I  »  I  I  t  I  t  I  »  I  t  I  I  I  t  t  I  t  I  I  * 
SUBROUTINE  DELCQN 

CHARACTER  VNI6, CHI6, PNI20, KH* J, FNt 10, PINEfl Jl , P« 1 , OBJNI 10 
INTESER  V 

CONMCN/Cl/A(20,60),3(20),C(60),lHEB(20),IFLA6d9),NEC,N6C,NlC,K,V, 

.MXMN 

CaHH0N/C2/VN<60),CN<20),PN,MN,FN,PINEfl(20),Pd0>,33JN 
100  WRITE : If  1 10) CHAR ( 12) 

110  FORMAT < A! 

IF(IFLA6(5)  .EQ.  DTHEN 

120  NRITEd,’ dt(/i,”NEED  TO  SEE  CONSTRAINT  MAKE  LIST?  ”,*)’) 

READ'S, MAl)’)P(.l) 

IFdCHAR'Pd))  .ES.  89) THEN 
NRITEd.  110)  CHAR  d2) 

NRITEd,’ <8X, ’’CONSTRAINT  NAME  LISTING”/)’) 

00  150  1*1. K 

UO  NRITEd. ’'7X,” CONSTRAINT  I  ”,12.”  *  ”, Mi’ll, CNI) 

150  CONTINUE 

PAUSE 

ELSEIF<ICHAS<P<D  »  .NE.  78) THEN 
NRITEd, 160) 

ISO  F0RMAT'/5X,’ INVALID  ENTRY,  PLEASE  REENTER’) 

SO  TO  100 
ENDIF 
ENOIF 

200  NRITEd, 119)CHARd2> 

NRITEd. MIO'/). ’’WHICH  CONSTRAINT  DO  YOU  WISH  TO  DELETE?” /5X,”P 
.LEASE  ENTER  CONSTRAINT  NUMBER.”/)’) 

220  NRITEd,’ dOX, ’’DELETE  CONSTRAINT  I  ”,*>’) 

REA8(5,’  !2Al)’)Pd),P(2) 

CALL  CHECK2(P,2,K,INVAL,IHEW) 
iFdNVAL  .EQ.  DTHEN 
NRITEd,  160) 

SO  TO  220 
ENDIF 
BdNE'N)*0. 

DO  250  J*1,V 
AdNEN.J>*0. 
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250  CONTINUE 

C  COUNT  BY  TYPE  OF  INEDUALITY  UPDATED  SINCE  1  LESS  CONSTRAINT 
IFUNEBdNEN)  .EQ.  01  THEN 
NLC*NLC  *  1 

ELSEIF (INEC(INZN)  .EO.  DTHEN 
N6C*NGC  -  l 
ELSE 

N£C*NEC  *  1 
END  IF 

C  IF  CONSTRAINT  NOT  LAST  CONSTRAINT.  ALL  RONS  ROVED  UP  1 
IFilNEN  ,LT.  WHEN 
DO  300  I*IN£N,K-1 
B(li»B(I*li 
INE3(l>=IN£fiII+l) 

F1NE6!11*P!NEQ(I+1) 

CN<I)*CN(I+1> 

DO  290  3*1, V 
A(I,J)*AU*1,3) 

290  CONTINUE 
300  CONTINUE 
ENDIF 

C  NUMBER  OF  CONSTRAINT  DECREASED  BY  ! 

Y*K-1 

IFLAG(2)=0 

RETURN 

END 
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c  t  »  t  I  I  I  I  *  I  I  II  I  I  I  t  I  I  I  M  I  t  *  I  I  t  t  I  *  I  I  I  t  » 


C  HOME  1  UN1T14  * 
C  t 
C  SUBROUTINE  DEL VAR  * 
C  USE;  PERFORMS  THE  DELETION  OF  A  VARIABLE  FROM  MODEL  BY  SOLICITING  I 
C  USER  INPUT  OF  VARIABLE  NUMBER.  MODIFIES  NECESSARY  VARIABLES  « 
C  TO  REFLECT  VARIABLE  DELETION  AND  REORGANIZES  DATA  IN  ARRAYS.  * 
C  CALLED  BY:  SUBROUTINE  EDIT  t 
C  CALLS  :  SUBROUTINE  CHECK2(P,N,N, INVAL, INEN)  t 
C  VARIABLES:  t 
C  USED:  IFLAG(5) , INVAL. INEN, K  I 
C  MODIFIED:  A(»,»!,C(li.IFLASu),F(l),V,VN(lt  I 


Ctttttttttlltttttttttttftttttttttttt 

SUBROUTINE  DELIAS 

CHARACTER  VMI6,CN»6.PM«20.HN*3,FNIlC,PINE8«l,F*i,08jNllO 
INTE3EP  V 

COMMON 'Cl /A (20, 60) , B ! 20 i . C (40) , INEB  s20) , I FLA6 ( 10) ,  NEC. NBC. NIC, K, V, 
•  HYMN 

C0HNQN/C2/VN (60) , CN!20> . ?N. HM.FN. PiNE3(20) ,P( 10) , OSJN 
iOO  NR!TE(1,U0)CHAR(12) 

110  FORMAT (ft) 

IF(IFLA6(5)  .E8.  DTHEN 
C  MODEL  CONTAINS  NAMES 

120  WRITE!!,’  (ll(/i,”NEED  TO  SEE  VARIABLE  NAME  LISTING?  ”,»)’) 
READ(5, ’ (Al) ’)P(l) 

IFdCHAR(Pd))  .EB.  S'*) THEN 
WRITE ( 1 , 110) CHAR « 12) 

NRITEU,’<?Y,” VARIABLE  NAME  LISTING”/)’) 

DO  150  J=1,V 

WRITEd.MSY.  "VARIABLE  Y(”,I2,”)  *  ”fA6)’;J,VN(J) 

ISO  CONTINUE 

PAUSE 

ELSEIP(ICKAR(Pd))  .NE.  78)  THEN 
NRITEd.160) 

160  FORMAT (/5Y, ’INVALID  ENTRY,  PLEASE  REENTER’) 

GO  TO  100 
ENDIF 
ENDIF 

200  HRITE(l,liO>CHAR<12) 

WRlTE'.l,'(iOi/), "WHICH  VARIABLE  DO  YOU  NISH  TO  DELETE?” /5Y,”PLE 
.ASE  ENTER  SUBSCRIPT  VALUE.”/'-) 

220  NRlTEd,’ I9Y.” DELETE  VARIABLE  Y;?)  *  ”,$)’) 
P£A0(5,’(2Al)’)Pd),P(2) 

CALL  CHECK2(P,2,V, INVAL, INEN) 

IF  (INVAL  .EG.  DTHEN 
NRlTEd,  laO) 

BO  TO  220 
ENDIF 

C  COST  COEFFICIENT  FOR  DELETED  VARIABLE  ZEROED 
C(INEN)>0. 

C  CONSTRAINT  COEFFICIENTS  FOR  DELETED  VARIABLE  ZEROED 
DO  250  1*1, K 
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A(K,INEN>*0. 

2S0  CONTINUE 

C  If  VARIABLE  NOT  LAST  VARIABLE,  ALL  COLUMNS  ROVED  LEFT  1 
IFilNEN  .LT,  V)THEN 
DO  300  J*INEN,V-1 
CU)=C(Jrl) 

IF<IFLA6!5)  .EO.  1 ) THEN 
VN<J)=VN<J+1> 

END  IF 

00  290  1*1, K 
A(I,J)=A<I,J+1) 

290  CONTINUE 
300  CONTINUE 
EADIF 

C  NUMBER  OF  VARIABLES  DECREASED  3Y  1 
V«V-1 

320  WRITE  < 1 . 1 10) CHAR (12) 

NRITEU,'(10</), 8/, "DELETE  ANOTHER  VARIABLE?  ”,♦)') 
READ<5.'  (AD’lPil) 

IFUCHAR'PU))  .EQ.  89) THEN 
60  TQ  100 

ELSEIFUCWARtPU))  .NE.  7B>THEN 
NRJTE'1,160! 

SG  TO  32C 
ENOIF 
iFLAb(2)=0 
RETURN 
END 
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c  1 1 1 1  » i  1 1  i  1 1 1  i  i  i  i  t  i  1 1 1 1  » *  i  » i  *  1 1  1 1  1 1  i 

C  NODULE  1  UNIT  IS  I 

C  UNIT  (USES:  UNIT17  I 

C  t 

C  SUBROUTINE  1CHRCH  » 

C  USE:  SOLICITS  1NPU7  OF  CONSTRAINT  NUMBER  AND  TYPE  OF  CHANCE  I 

C  DESIRES  IN  CONSTRAINT.  ALLONS  USER  TO  CHANGE  CONSTRAINT  t 

C  COEFFICIENT.  INEQUALITY,  RHS  OR  NAME.  PERFORMS  DESIRED  I 

C  CHANGE  AND  MODIFIES  THOSE  VARIABLES  WHICH  THE  CHAN6E  t 

C  NECESSITATES.  » 

C  CALLED  BY:  SUBROUTINE  ADCON  » 

C  SUBROUTINE  SATAN  t 

C  SUBROUTINE  UATAS  » 

C  SUBROUTINE  EDIT  4 

C  CALLS  :  SUBROUTINE  CHECK (P.INVAL.RNEUi  I 

C  SUBROUTINE  CHECK2<P,N,H,INVAL, INEW)  * 

C  SUBROUTINE  CHECK3(P,INVAL,INEH)  I 

C  SUBROUTINE  OISPLY  I 

C  VARIABLES:  » 

C  USED:  1FIAS (5) , INCH. INVAL, K.RNEN, V  t 

C  MODIFIED:  Ad, »>, Bit), CNAK,CKAN, CHARD, CNU),iFLA6<2).IFLAG(6;,  t 

C  IFLAS(9),INEfld),NEC,N6C,NLC,Pd),P!NEBd?  » 

ctmmMmimmtmmiiiimn 

(USES  UCHECK  IN  UNIT17.CODE  OVERLAY 
SUBROUTINE  ICNRCH 

CHARACTER  VN»6.CMo.PNt20,NMl3,FNIlG.PIIO»l.P»l,0&JN»10,CHAN»6 
INTEGER  V,CHAK,CHARO 

C0MMON/C1/A(20,SO),B(20),C<AO),!NE6(20?.IFLa6(10),NEC,NGC,NLC,K,V, 

.HYMN 

COMMCN/C2/VN(60).CN(20I,PN,HM,FN,PINEOCO!,P(IO).OBJN 
100  NRITE(U10)CHAR(12) 

110  FORMAT (A) 

NRITEd,  120) 

120  FORMAT (11Y, ’CONSTRAINT  CHANGE’) 

C  CHECKS  IF  ONLY  CONSTRAINT  NAME  IS  TC  BE  CHANGED 
1F<IFLA6<&)  .EQ.  A (THEN 
BO  TO  140 
END  IF 

NRITEd,’ dOd).  IX,  "DISPLAY  THE  PRESENT  CONSTRAINTS?  ",(}’) 
READI5.’ (Al)’)P(l) 

IF<ICH4YP<P<1J  •  .E8.  781THEN 
SO  TO  140 

ELSEiFUCHAfUPd))  .NE.  89 (THEN 
WRITE  1 1 , 130) 

130  F0RMAT(/5X. 'INVALID  ENTRY,  PLEASE  REENTER’) 

60  TO  100 
ENB1F 

C  FLAG  ALLONS  ONLY  CONSTRAINTS  10  BE  DISPLAYED 
IFLAG(9)*l 
CALL  DISPLY 
WRITE ( 1 , 1 10) CHAR  < 1 2> 

140  «RITE(!,M  44.'.-, "WHICH  CONSTRAINT  DO  YOU  NISH  TO  CHAN6E?’’/5X,"P 


.LEASE  ENTER  CONSTRAINT  NURDER.”)’) 

150  WfilTEU,'  !/9X,”  CHANGE  CONSTRAINT  *”,$)’) 

SEAD!5,’  (2Ai)’)PUi,P(2) 

CALL  CHECX2(P,2.K,INVAL,INEW) 

IFUNVAL  .EB.  UTHEN 
WRITE!1,130! 

60  TO  150 
ENDIF 

CHARO»INEN 

190  60T0I200, 350,500, 450, 800) <IFLA6!4)+1) 

C  ACCESS  TO  CHANGE  ANY  PART  OF  CONSTRAINT  ALLOWED 
200  WRITE ( 1 . 1 10) CHAR  < i2) 

WRITE! 1,210) 

210  FGRHATdlX, ’CONSTRAINT  CHANGE’,’ 

NRITEU.M//2I, ’’CHANGE  DESIRES  IN  CONSTRAINT  I”,  12,”  IS:”//SX, 
.”1.  VARIABLE  COEFFICIENT”. -81, ”2.  INEQUALITY” /8X,  ”3.  RHS”/SX, 
.”4.  NO  CHANGES”  DCHARO 
220  NRITEil,M/13X,”NHlCH  OPTION?  ”,$)’> 

READ(5,’ (Al)’)P(l) 

CALL  CHECKUP,  1,4,  INVAL,INEN) 

IFUNVAL  .EC.  UTHEN 
WRITE! 1,130) 

SO  TO  220 
ENDIF 

80TQ!350, 500.450, 130-3)  INEW 

C  ONLY  VARIABLE  COEFFICIENTS  ALLONED  TO  BE  CHANGED 
350  NRITEU,  110)CHARU2) 

NPITEU.M5X, ’’WHICH  VARIABLE  COEFFICIENT  OF  ”/4X, ’’CONSTRAINT  ”, 
.12.”  REQUIRES  CHANGES?”  DCHARO 
3e0  WRITE!!, M/10X, ’’VARIABLE  XI?)  =”,*,2!/))’) 

READ (5, ’ (2Ai) ’)P(1>,P<2) 

CALL  CHECK2!P,2,V,INVAL,INEN) 

IFUNVAL  .EQ.  UTHEN 
WRITE  < 1 , 130) 

60-  TQ  360 
ENDIF 
CHAK=INEN 

370  »RlTEil,’(/4X. ’’PRESENT”,  14X, ’’DESIRED” /7X,”X(”,  12, ”)”,14X, 

.  ” X !  ” , 12,  ” )  ” ! ’ ) CHAK, CHAK 
NR1TEU,’  (3X,1PE12.5,9X,$)’)A'.CHARG,CHAK) 

READ  1 5,’  (lOAD’UPIL!,  1*1.10) 

CALL  CHECK ;P.INVAl,RNEN) 

IFUNVAL  .EQ.  UTHEN 
WRITE (1,130) 

GO  TO  370 
ENDIF 

380  WRITE  U.S’Q) 

390  PORHAK/BX.’IS  CHANGE  SlIU  DESIRED?  ’,*) 

READ(5,’;A1)’)PU) 

IFUCHAR(PUi)  .EQ.  89) THEN 
A(CHARQ,CHAK)*RNEW 
WRITE'!, 400) 
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400  FORMAT ( / 1 1 X , ’  1  CHANCE  COMPLETED’) 

PAUSE 

ELSEIF(ICHAR(P ( 1 ) )  .Efi.  78) THEN 
WRITE  41,410) 

410  FORMAT </10X, ’NO  CHANCE  PERFORMED’) 

PAUSE 

ELSE 

WRITE' 1,130) 

60  TO  380 
ENDIF 

420  WRITEi 1, 110) CHAR< 12> 

NRITE<1,430) 

430  FORMAT < 104/) , ' FURTHER  COEFFICIENT  CHANGES  TO  THIS’ ;l3X, ’CONSTRAINT 

.?  ’,*) 

READ(5,’ (Al)’)P(l) 

IFUCHAR(PU))  .Efi.  89) THEN 
60  TO  200 

ELSEJFdCHAR(PU))  .HE.  78) THEN 
WRITEd,  130) 

80  TO  420 
END  IF 

GO  TO  1200 

C  ONLY  INEQUALITY  CHANSES  ALLOWED 

500  WRITE 41,’ (/6X« ’ ’ CONSTRAINT  INEQUALITY  CHAN6E”)’) 

510  WRITE41,’  (1/fcX,  "PRESENT”,  141,  ’’DESIRED”)’) 

UNITE  < i , r (91 , A1 . 20X ,$) ’ ) PINE6 (CHARD) 

READ(5,MAi)’)PM) 

CALL  CHECK3<P. IWVAL, 1NEW) 

IFdNVAL  .EC.  I) THEN 
WRITE ( ! , 1 30) 

SO  TO  510 
END  IF 

520  WRITE ' 1,390) 

READ  45.’ tAl)’)P(l) 

IF ( ICKAR (P< 1 > )  ,ES,  89) THEN 
C  COUNT  BY  TYPE  OF  INEfiUAUTY  UPDATED 
WRITE! 1.400? 

IFUNEQ(CHARO)  .Efi.  O’ THEN 
NLC-NLC-I 

ELSEIFUNEtHCHARO)  .EB.  I) THEN 
N6C*N6C-1 
ELSE 

NEC=NEC*1 

ENDIF 

INEO:CHARO)-INEN 
IF(INEfitCHARO)  .Efi.  0) THEN 
M.C*NLC*1 
PINEfiiCHAPO)®".' 

ELSEIFUNED(CHARO)  .EG.  DTHEN 
N6C*N6C«1 
PIHEO(CHARO)*’ >* 

ELSE 
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NEC=N£C+1 

FINEB(CHAflO)8'8’ 

END  IF 

ELSE!F(ICHAR(Pd)>  .E8.  78) THEN 
WRITE (1,410) 

ELSE 

WRITE ( 1,130) 

50  TO  520 
END  IF 
PAUSE 

80  TO  1200 

C  ONLY  RHS  CHANGES  ALIGNED 

650  WRITEd,’  (/?/,”  CONSTRAINT  RHS  CHANGE”) ’) 

660  WRITEd,’  (61,  ’’PRESENT”,  HX, ’’DESIRED” /71,”8(”,  12,”)”,  161,” 
.3<”,I2,”i”>’)CHARO.CHAfcO 
WRITEd,’ (31, 1PEI2.5,911,*)’)B(CHAR0} 

REA9<5.  ’  (HAD  ’ )  (P  <L)  ,L=1, 10) 

CALL  CH£CK(P,INVAL,RNEH) 

IFilNVAL  .EB.  1)TH£N 
WRITE (1,170) 

GO  TO  660 
ENDIF 

680  WRITEd. 390) 

READ(5,’(A1)’)P(1) 

IF(ICHAR(Pd)i  .EQ.  S9) THEN 
B(CHARO)=RNEN 
WRITE (1,400) 

ELSEIFdCHARlP(l))  .EB.  78) THEN 
MRITEd.410) 

ELSE 

WRITE (1,130) 

GO  TO  680 
ENDIF 
PAUSE 
60  TO  1200 

C  ONLY  CONSTRAINT  NAMES  CHAN6ES  ALLOWED 
800  WRITE  (1,1  Id  CHAR  (12) 

IF ( IFLA6 (5)  .EB.  0) THEN 
C  MODEL  DOES  NOT  INCLUDE  NAMES 

WRITE  (!.’ <7  (/),  161, ’’MISTAKE!” //’’THE  MODEL  BEING  EDITED  POES  N 
.OT  INCLUDE” /’’CONSTRAINT  NAMES,  ONLY  SUBSCRIPTS. ”//”vQU  ARE  3EI 
,N6  RETURNED  TO  DATA  BASE’ ? /  ’ EDITOR” //)’ * 

PAUSE 

RETURN 

ENDIF 

WRITEd.’  m,  ’’CONSTRAINT  NAME  CHANGE”)’) 

WRITEd.’ (//’’PRESENT  NAME  FOR  CONSTRAINT  I”,  12.”  8  ”,A6)’»rhAR 
.OfCNtLHARO) 

810  WRITEd.’ (//’’DESIRED  NAME  FOR  CONSTRAINT  *”,12,”  8  ”  ,*) ’ )CHARO 
R£AD(5,’(A6)')CHAN 
WRITE (1,390) 

READ<5,’  !Al*”P(i) 
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IFdCHAR(Pd))  .cD.  89) THEN 
CN(CHARQ)=CHAN 
HR! TE tl ,400) 

ElS£IF(ICHAR<Pd))  .£3.  78) THEN 
NRITEd, 410) 

ELSE 

NRITEU.130) 

80  TO  810 
ENDIF 
PAUSE 

1200  NRITEd,  110)  CHAR  (12) 

!F!IFLA6'6!  .Efl,  4) THEN 
SO  70  1220 
ENDIF 

1210  NR1TE 11.110) CHAR (12) 

NRITEd,’ (UK/),’ ’FURTHER  CHANSES  TO  THIS  CONSTRAINT?  *',«)’) 
READ(5,’ (Al)’)P(l) 

IF<ICHAR<F<D )  . EC.  89) THEN 
SO  70  200 

ELSEIFilCHARiPdl)  ,NE.  78) THEN 
NRITE(!,!30) 

SO  TO  1210 
ENDIF 

1220  NRITEd,  11C)CHAR(12) 

NRITEd,’ (10>'/i ,”FliRTHER  CHAN6ES  TO  ANY  CONSTRAINT?  ”,*;’) 
REA0(5,MAl)MPd) 

IF<ICHAF<F<D )  .EQ.  89! THEN 
80  TO  100 

tLSElr <ICHAR<P<1 ) )  .NE.  78) THEN 
NRITEd.  130) 

50  TO  1220 
ENDIF 

IFI.A6(2)*0 
IFLm6(6)*0 
1300  RETURN 
END 
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c  1 1 1 1 1  1 1 1 1 1 1 1  »  t  i  i  i  1 1  1 1 1 »  1 1 1 » » 1 1 1 1  1 1 1 
C  MODULE  1  UNIT  1 5  I 

C  I 

C  SUBROUTINE  ADCON  t 

C  USE;  SOLICITS  INPUT  OF  COEFFICIENTS,  INEQUALITY,  RHS,  AND  NAME  OF  t 
C  ADDED  CONSTRAINT.  MODIFIES  NECESSARY  VARIABLES  TO  REFLECT  t 

C  ADDITION  OF  CONSTRAINT  TO  MODEL.  I 

C  CALLED  BY:  SUBROUTINE  EDIT  t 

C  CALLS  i  SUBROUTINE  CHECK  IP, INVAL,RNEN)  t 

C  SUBROUTINE  CHECK3(P,INVAL,INEH)  t 

C  SUBROUTINE  ICNRCH  t 

C  VARIABLES:  t 

C  USED:  !FLA8(5i,INEN,INVAL,PN.RNEN.V.VNU>  t 

C  MODIFIED:  A<t,l),B<t),CNili,:FLA6(2),INEQU),K.NEC,N6C,NLC,F(f),  » 

C  PINEQ(I)  t 

C  I  I  t  I  I  It  (  I  I  H  t  I  M  t  I  I  I  I  II  t  t  It  t  l  I  I  I  I  I  t 
SUBROUTINE  ADCON 

CHARACTER  VNt6.CNt6, PNR20, HHR3.FM 10,  PINEDti 
INTESER  V 

C0NNQN/C1/A<20,60>,B(29> ,C(60) , IKEBI20) , IFLASI10) ,!€C,N6C,NLC,K,V, 
.MX  MR 

C0MH0N/C2/VN (60) . CN ( 20) , PN, MM. FN, PINES (20) , P I 10) , OBJN 
100  NR1TEI 1,110) CHAR (12) 

110  FORMAT  (A) 

WITE<1,’(12X, ’’CONSTRAINT  INPUT” //”  INPUT  CONSTRAINT  VARIABLE  CO 
.EFFICIENTS” /’’AS  IF  THE  CONSTRAINT  NAS  IN  THE”/13/, ’’F0LL0NIN6  F 
•  FORM”)’) 

NSITEil, ’  I6X,”X<1)  ♦  X (2)  +  X(3!  <•>  RHS”//”THE  VARIABLE  COEFF 
. ICIENTS  ARE  A  MAXIMUM”/” OF  10  CHARACTERS.” //’’IF  COEFFICIENT  IS 
.  ZERO,  ENTER  0  OR  HIT” /’’"RETURN’  WITHOUT  ENTRY”//)’) 

PAUSE 

120  NRITE(1,110)CHAR(12‘ 

C  NUMBER  OF  CONSTRAINTS  UPDATED 
X=K  ♦  1 

NRITEU,  130)Pfi 

130  FORMAT <51, ' PROBLEM  ID:  ’,A20) 

IF(1FLA6(5)  ,E8.  1 ’ THEN 

C  MODEL  INCLUDES  NAMES  SO  CONSTRAINT  NAME  INPUT  BY  USER 

NRITEil, ’ (/9X. ’’CONSTRAINT  NAME  INPUT” //’’ENTER  CONSTRAINT  NAME 
.  NHICH  CORRESPONDS” /"TO  CONSTRAINT  I”,  12,”. ’’//’’NAMES  ARE  TO 
.  8E  6  CHARACTERS  OR  LESS.”'’)K 

NRITE(l,’i/9X, ’’CONSTRAINT  ”,i:,”  =  ”.»)’)K 
READ(5,’(A6>’.*CN(K) 

NRITE(1,U0)CHARH2! 

NSITEO,  J30IPN 

WRITE *!,’<” CONSTRAINT  VARIABLE  COEEFICIENT  INPUT”)’) 
NRIT£(),M9X, ’’CONSTRAINT  ”,I2,”  *  ”,As./)’iK,CN(K! 

C  ADDED  CONSTRAINT  COEFFICIENTS  INPUT  BY  USER 
DO  200  J*i,V 

(40  HRITEU,150)J,VN(vD 

150  F0RMAr<7X,’X«’,I2,’)  *’.A6,’  *  ’,$) 

READ  (5,  ’  ( 10AI )  ’  MP  (L)  ,L*I ,  10) 
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CALL  CHECK <P, 1NVAL,RNE»> 

IFdNVAL  .EQ.  WHEN 
NRITEU,160) 

160  F0RHAT</5K ,  ’ INVALID ,EHTRY,  PLEASE  REENTER’) 

SO  TO  140 
ELSE 

A(K,J)»RNEN 

ENDIF 

200  CONTINUE 
ELSE 

KRITEd.' 413X, ’’CONSTRAINT  ”,12>’)K 
DO  250  0*1, V 

210  NRITEI1, 220)0 

220  FORMAT tiX,’* I ’,12,’)  *  ’,») 
READ(5,’U0Al)’)(P(L),L*l,10i 
CALL  CHECK <P,iNVAL,RNE!i) 

IFUNVfit  .Efi.  1 ) THEN 
NRITEU.160) 

SO  TO  210 
ELSE 

A<K,J)*RNEN 

ENDIF 

250  CONTINUE 
ENDIF 

C  ADDED  CONSTRAINT  INEQUALITY  INPUT  BY  USER 

260  IF i IFLAS45)  .EO.  0)THEN 

WRITE T1 . ’  !1<,”  INEQUALITY  ”,»)’> 

ELSE 

WRITE  1 1 , ’  i  1 < ,  ”  INEQUALITY’ ’,121,1)’) 

ENOiF 

READ<5,’<A1)’)PU> 

CALL  CHECK3;F,INVAL,INEHl 
IFdNVAL  .Efi.  UTHEN 
WRITE ( 1 , 160) 

GO  TO  260 
ELSE 

INEQ(K)=INEW 

ENDIF 

C  COUNT  BY  INEQUALITY  TYPE  UPDATED 
IF ( INEW  .Efi.  O  r  THEN 
NLC=NLC  ♦  1 
P!NEQ(K)*’<’ 

ELSEIFUNEW  .EQ.  1)  THEN 
N6C*N6C  ♦  1 
P1NEQIK!*’)’ 

ELSE 

NEC*NEC  ♦  1 
PINEB(K)*’*' 

ENDIF 

C  ADDED  CONSTRAINT  RHS  INPUT  BY  USER 

230  IFCFlA6<5)  .EQ.  0) THEN 

WRITE ( 1 , ’ <8K , ” RHS  *  ”,»)’) 
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ELSE 

NRITEU,’  <8X.”RHS”,1CX,”*  ”,*>') 

ENDIF 

»EAD<5,  ’  (10Ai»'HP(L).L*l,10) 

CALL  CHECK <P,INVAL,KNEH> 

IFliMVAL  .ES.  1>THEN 
WRITE (1,160) 

S3  TO  280 
ELSE 

B(K)*RN£W 

EKOIF 

PAUSE 

290  NRITE(1; 110>CHAR<12) 

WRITE < I* ’  dli/),7X,’:ARE  CORRECTIONS  NEEDED?  ”,*>’> 
REAOtw. ’ < AI) ’ )F il) 

JFdCKARiPdd  .EB.  69) THEN 
CALI  ICNRCK 
S3  TO  200 

ELSEIFdCHAR!P(l)>  .EB.  78>THFN 
60  TO  300 
ELSE 

WRITE  < 1 , 160) 

60  TO  290 
ENDIF 

300  WRITE (1,1 10) CHAR (12) 

310  WR!TE(1,M11(/),8a,”A00  ANOTHER  CONSTRAINT?  ”,♦)’) 

READ  <5, ' (Al)  ’ )P(1) 

IF'ICW)R(P(1)>  .EB.  S°)THcN 
60  TO  120 

ELSEIFdCHAR(Pd)!  .E0.  78) THEN 
IFLA6(2)=0 
RETURN 
ELSE 

WRITE ( I . 1A0) 

60  TO  300 
ENDIF 
END 


256 


c it »  ti 1 1 1 »  i  t *  t  t  i  I  i  i  1 1  1 1  i 1 1 i 1 1 * 1 1 »  1 1 1 
C  NODULE  1  UNIT 13  I 

C  I 

C  SUBROUTINE  DISPLY  I 

C  USE:  FORMATS  TABLEAU  OUTPUT  TO  BOTH  SCREEN  AND  PRINTER.  OUTPUTS  I 

C  EITHER  THE  CONSTRAINTS  ONLY  OR  THE  CONPLETE  TABLEAU  AS  INPUT  I 
C  BY  USER.  OPENS  AND  CLOSES  OUTPUT  UNIT  3ES16NATED  BY  USER.  t 
C  CALLED  BY:  PRQSRAM  DATAB  » 

C  CALLS  :  SUBROUTINE  CHECK2(P,N,H,INVAL,INEN)  « 

C  VARIABLES:  I 

C  USED:  A<M),B<t),CU>,CN<i>,IFLA8(5),INEN,INVAL,K,HM,QBfiN,  » 

C  P1N£0(I),PN,V,VN!I)  » 

C  MODIFIED:  IFLAS(9),N,P(*),T  t 

cmmmmmMmiimmimm 

SUBROUTINE  DISPLY 

CHARACTER  WW.CNI4,PN*20,MMt3,FNtt0,PINEB«,?ll,CBJNtl0 
INTE6ER  V,7 

C0MMON/Cl/A<2O,&Q),B<2Oi,C<M),INEB(2O),IFLA6ilO>,NEC,N6C,NLC,K,V, 

.NUNN 

CCMM0N/C2/VN(60!,CN(20>,PN,HM,FN,PINEQ!20),P<10).QBJN 

NRI1E(1,110>CHAR(12) 

110  FORMAT (A) 

NSITEU,’  (8('),  7X,”  MOULD  YOU  LIKE  DISPLAY  0N:”//I5Xt  ’1.  SCREEN’ 
.720X,”0R”/15X.”2.  PRINTER”)’) 

120  MRITE(1,M/13X.”MH1CH  OPTION?  ”,♦)’) 

REA0<5,’iAir;PU) 

CALL  CHECK2IP. 1,2.  INVAL, IMEN) 

IF (INVAL  .EB.  DTHEN 
NRITE (1,130) 

130  FORMAT I/5X,’ INVALID  ENTRY,  PLEASE  REENTER’; 

60  TO  120 
ENDIF 

C  PROPER  FILE  FOR  SELECTED  OUTPUT  DEVICE  OPENED 
IFlINEN  .Efi.  DTHEN 
OPEN (2, FILE*’ CONSOLE : ’ ) 

ELSE 

0PEN(2,FILE*’PRINTER:’> 

ENDIF 

NRITE(1,110)CHAR(12) 

IFCFLA6I9)  .EB.  DTHEN 
C  ONLY  CONSTRAINTS  ARE  DISPLAYED 

NRITE(2,220)PN 

220  F0RMAT(10*,A20/10J(, ’CURRENT  CONSTRAINTS’) 

ELSE 

C  OBJ  FUNCTION  AND  CONSTRAINTS  DISFLAYED 

WITE(2.230'PN,MM 

230  FORMAT’ 10). A20/7X,’ CURRENT  LP  MODEL:  ’,A3,’IMI2E  ’,*) 

!F'IFLA6(5i  .Efi.  DTHEN 
MRITE(2,240)0BJN 
240  FORNAT(AIO) 

ELSE 

MfiiTE (2,250) 
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230  FORMAT ( ’  ’) 

ENDIF 
END  IF 

C  N  WISER  OF  80  COLUMN  DISPLAYS  REQUIRED  DETERMINED 

T«(V/5>+l 
DC  470  N«1,T 
IF(IFLA6(5)  .ED.  DTHEN 

C  VARIABLE  NAMES  PRINTED  AS  COLUMN  HEADERS 

NRITE12.’ (131,$)’) 

CO  270  J*(N$5)*4,NI5 
IF 4 J  .ST.  V)THEH 
60  TO  270 
END1F 

NRIT£C,260)VN(J) 

260  FCRMAT(4K,A6,3I,$> 

270  CONTINUE 

NRiTE(2,M”  ”!’) 

END1F 

NRlTE(2,’(i3X,$>’> 

DO  290  J«(N»5)-4,NI5 
IF (J  .ST.  V)THSN 
60  TO  290 
ENDIF 

WRITE (2, 260) J 

280  F0RNAT(4X,’X(’,12,’!’,4X,$> 

290  CONTINUE 

C  IF  LAST  80  COLUMN  DISPLAY.  DISPLAY  RHS 

IF(T  ,EB.  1  .OR.  N  .ED.  DTHEN 
WRITE  (2, 300) 

300  FORMAT (71, 'RHS') 

ELSE 

NRITE(2.’(”  ”)’) 

ENDIF 

1 F  < I FLAB 5 9 )  .EQ.  0) THEN 
NRITE(2, ’(’’OBJ  FUNCTION”,  11,$!’) 

DO  320  J*(N$5)-4,N»5 
IF ( J  .ST.  V) THEN 
63  TO  320 
ENDIF 

WUTE(2,31Q)CW) 

310  F0RNAT(1X,1PE12.5,$> 

320  CONTINUE 

IF(T  .EQ. J  .OR.  N  ,E6.  DTHEN 
NRITE(2,330i 

330  FQRHATUX,’*  Z1! 

ELSE 

NRUE(2,M”  ”)’) 

ENDIF 

NPITEI2.’ (’’CONST  NAHE”,2Xt67l”$”)>’> 
ELSE 

NRITE(2,’ ("CONST  NAME””) 

ENDIF 
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C  CONSTRAINT  NUMBER,  NAME,  BASIC  VARIABLE,  COEFFICIENTS, 

C  INEQUALITY,  AND  RHS  DISPLAYED 

00  400  L*1 , K 
IF <L  ,ST.  K ) THEN 
60  TO  400 
END1F 

NSITE(2,340)L 

340  FQR«AT(’CNIM2f*> 

IF( EFLAfi(S)  .EO.  D7HEN 
NRITEiI,350)CN(L) 

350  FORMAT (IX, Afr, IX, $) 

ELSE 

NRITEI2.M8X,4)') 

ENDIF 

00  370  J*(NI5)-4,N<5 
IF(3  .ST.  V) THEM 
60  TO  370 
ENDIF 

NRITE(2,360)A!L,J) 

3M>  F0RNATI1X,1PE12.5,$) 

370  CONTINUE 

lFiT  .ES.  1  .OR.  N  .Efl.  DTHEN 
HRlTE<2,380)PINE6iL),3(L) 

380  FORMAT (IXfAl.lX,iPEi2.5) 

ELSE 

NRITE(2,M”  ”)’) 

ENDIF 

400  CONTINUE 

C  SPACIN6  APPROPRIATE  FOR  SELECTED  OUTPUT  DEVICE  IMPLEMENTED 

IF(INEN  .EO.  DTHEN 
PAUSE 

NRITE<2,ilO)CHARU2) 

ELSE 

NRITEI2,' 121/))’) 

ENDIF 
470  CONTINUE 
iFLA6(9)=0 

C  OUTPUT  DEVICE  FILE  CLOSED 
CLOSE (2) 

RETURN 

END 
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c  I  I  I  I  »  I  I  t  *  I  I  I  *  I  I  I  t  »  I  *  t  I  »  *  t  t  t  I  t  I  I  I  I  I  » 
C  NODULE  1  UNIT16  » 

C  UNIT  IUSESi  UNIT17  » 

C  * 

C  SUBROUTINE  SAVE  t 

C  USE:  SOLICITS  VOLUME: FILENAME  OF  DISK  FILc  T3  STORE  NEU  OR  EDITED  > 

C  MODEL.  ALSO  SOLICITS  INPUT  NHICH  IDENTIFIES  INPUTTED  FILE  AS  t 

C  A  NEK  FILE  OR  AN  UPDATE  OF  FILE.  SAVES  DATA  IN  DISK  FILE  I 

C  (FN)  AND  ALSO  WRITES  (FN)  TO  DISKFILE  LP1 sLPDATA  FOR  TRANSFER  t 
C  TO  NODULES  2  AND  3.  » 

C  CALLED  BY:  PRGSRAN  DATAB  I 

C  CALLS  :  NONE  I 

C  VARIABLES:  I 

C  USED:  AIM), BID. CIO, CHIU. 1FLAGU).IFLA6(3),IFLA6(4).  t 

C  I FLAG (5) , 1FLA6 (6) , IFLASI7) , IFLA6I8) , IFLA6I9) , IFLAS ( 10) ,  t 

C  INE6(t),K,NN,NXMN>NEC,N6C,NLCl0B0N,PINES(t>,PN,V,VNIt)  * 

C  MODIFIED:  FN,IFLA«(2),PII)  I 

(USES  UCI1ECK  IN  UNIT  17. CUBE  OVERLAY 
SUBROUTINE  SAVE 

CHARACTER  VNt6,CNt6. PNS20, FNN£0,PINEgt 1 #Ptl , OBJNSIO. RESS6 
INTEGER  V 

C3NNON/Ci/A{20,60),BI20),C<60),IN£Qt20),IFLAG(10),NEC,N6C,NlC,K,V, 

.HIHN 

CGHNON/C2/VN<SO>.CN<20),PN,NH,FN,PINEa<20),?(10),QBJN 
100  NRITE(l,110)CHARil2) 

110  FORMAT (A) 

C  USER  INPUTS  FILE  NAME  NHICH  MODEL  is  TO  BE  SAVED 

NRITEU,’ I//9X, ’’SAVE  LP  MODEL  TO  DISK” ///2X, ’’ENTER  THE  DISK  DRI 
.VE  NUMBER  AND  F1LE”/6!!,”NAKE  NHICH  YOU  WANT  PROBLEM”  1 10X,A20,/ 
.HI. ’’SAVED  UNDER.” )’)PN 

NRITEU,’ I/8X, ’’ENTER  EXACTLY  AS  FOLLONS”/10X,”DI5K  DRIVErFILENA 
,HE”/712X,”E6.  #4:FILENAM”//”THE  DRIVE: FILENAME  MUST  BE  10  CH 
,ARACTER5”//16X,”QR  LESS”//” IF  THE  ABOVE  IS  ENTERED  INCORRECTLY 
. ,”/7X,”Y0UR  MODEL  NILL  BE  LOST!!”)’) 

NRITEU,’ i/7X,”DISK:FILENAME  *  ”,*)') 

READ15, ’ (A10)’)FN 

120  NRITEU,’ </7X,”ARE  CORRECTIONS  NEEDED?  ”,♦)’) 

READI5,’ (Al)’)F(l) 

1FUCHAR1PU))  .EB.  8V (THEN 
GO  TO  100 

ELSE1FUCHARIPU))  .NE.  78) THEN 
NRITEU, 200) 

PAUSE 
60  TO  120 
cNDJF 

NRITEU,  110!  CHARI  12) 

C  USER  PROMPTED  TO  INSERT  DISK  TO  NHICH  FILE  IS  TG  BE  SAVED 

NRITEU, M9I/),2X, ’’INSURE  THE  DISK  TO  CONTAIN  THE  FIL£”//15X,A10 

.//13X,”IS  AVAILABLE. ”,6(/i)’1FN 

PAUSE 

NRITEU,  ISO)  CHAR  (12) 
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NRITEd,’ '.?(/),  ”HA$  THIS  DISKsFILSKARE  COMBINATION  BEEN”/I2X,”li 
,SL  PREVIOUSLY?” //’•  (ME  YOU  UPDATING  A  CURRENTLY  EX1STIN6”/17X, 
.’’FILE’)”)’) 

150  MRlTEdj’dlOX,”  (Y7N)  ”,»)’) 

REAB(5,'(A1)’)P(1) 

C  PROPER  STATUS  OF  FILE  DETERMINED  AND  OPENED 
IFUCHARiPO)  .E8.  89>T*N 
C»»EN 1 3 , F ILE*FN , STATUS- ’ OLD’ . FORM*’ UNFORMATTED’ ) 

ELSElF(ICHARIPd))  .Efi.  78) THEN 
OPEN  <  3, F IL£*FN, STATUS* ’ NEH’ . FORM* ’ UNFORMATTED’ ) 

ELSE 

WRITE (1,200) 

200  F0RMAT'/5X, 'INVALID  ENTRY.  PLEASE  REENTER’) 

SO  TO  150 
ENOIF 

C  MODEL  WRITTEN  TO  DISK 

NR  I TE ! 3 ) PN, HXMN , HM , K , V, NEC , N6C , NLC 
DO  250  1*1,10 
NRjTE(3)IFLA6d) 

250  CONTINUE 
DO  300  1*1, K 

NRITE(3)INE6(I),PINEQ(I),B(I) 

DO  290  **1,V 
WRITE (3) A< I . 0 ) 

290  CONTINUE 

300  CONTINUE 

DO  350  J*i,V 
WRITE (3) C (0) 

350  CONTINUE 

IFi!FLAS(5).EQ.  UTHEN 
DO  380  !*l,K 
WRITE  <3>CN(I > 

380  CONTINUE 

DO  400  3=1, V 
NRITE(3)VN(J) 

400  CONTINUE 

HRIT£(3)0WN 

ENOIF 

IFLA5(2)*I 

Cl OSE  <  3 . STATUS* ’ KEE? ’ ) 

NRlTEd,lI0)CHAR(12) 

NRITEd,’dl«7), II, ’’INSURE  DISK  LP1  IS  AVAILABLE. ”,7(/!)’) 
PAUSE 

C  NAME  OF  MODEL  LAST  SAVED  WRITTEN  TO  TRANSFER  FILE 

OFEN(3,FILE»’LPl8LPDATA’,STAT'JS«'OLD’.FORM='UWORMATTED’) 

WRITE  <3) FW 

CLOSE (3. STATUS*’ KEEP’ ) 

RETURN 

END 
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C  I  t  t  t  t  f  t  t  t  I  I  t  t  I  M  I  t  t  t  t  I  I  t  t  t  t  t  I  I  t  t  t  t  t 

C  NODULE  1  UNIT16  * 

C  * 

C  SUBROUTINE  INIT  * 

C  USEs  INITIALIZES  ALL  VARIABLES  TO  ZERO  EXCEPT  CHARACTER  VARIABLES.  I 

C  CALLED  BY:  PRG8RAN  DATAB  * 

C  CALLS  :  NONE  * 

C  VARIABLES:  < 

C  USED:  NONE  t 

C  MODIFIED:  A(*,»),B'I),CU),IFLA6U)  THRU  IFLA6(10),INEe(t>,K,HEC,  I 

C  NBC  NLC  V  I 

C  t  t  t  t  I  I  I  i'll)  I  I  t  I  t  I  I  M  U  M  I  I  I  I  I  I  I  I  I  I  I 

SUBROUTINE  INIT 
INTESER  V 

GQM15N/C1- A(20,60!,B(20),C(6G),INEQ(20),IFLA6U0),NEC,NGC,NLC,K,V, 
•  NTHN 

DG  200  1*1,20 

6U/*0. 

INEQ(1)*0 
DO  100  i=l,60 
AU,J)*0. 

100  CONTINUE 
200  CONTINUE 

DO  300  J*l,60 
C(J)=0. 

300  CONTINUE 

CO  400  1*1,10 
IFLA8IIi*0 
400  CONTINUE 
NEC*0 
NSC=0 
NLC*0 
RETURN 
END 
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to 


C  *  I  I  I  I  I  I  I  I  I  I  I  t  t  I  I  I  I  I  t  t  I  I  t  I  I  I  I  t  I  I  *  I  I  t 
C  NODULE  1  UKIT16  I 

C  * 

C  SUBROUTINE  DAT AD  I 

C  USE:  SOLICITS  VOLUME : FILENAME  FROM  USER  OF  FILE  TO  BE  READ  FROM  t 

C  DISK.  PROMPTS  USER  TO  INSERT  CORRECT  DISK  AND  READS  MODEL  t 

C  REQUESTED  FROM  DISK  INTO  MEMORY  FOR  FUTURE  EDITIN6  OR  » 

C  DISPLAY.  I 

C  CALLED  BY:  PR06RAN  DATAB  I 

C  CALLS  :  NONE  I 

C  VARIABLES:  t 

C  USED:  NONE  » 

C  MODIFIED:  A<Ml.B<t).C;»).CN<t),FH,IFLA6<i>  THRU  IFLA6UO),  t 

C  !NE9(l).K,HH,MxhN,NEC,N6C,NLC,0BJN,P(f ,PIHEfin),V,  I 

C  VNU)  » 

SUBROUTINE  DATAD 

CHARACTER  VNI6,CNt6,PNI20,HNI3,FN»10,?INE9»I,PKl,0BJN*10 
INTE6ER  V 

CGHM0N/C1/AI20,60).B<20),[(&0) ,INESI20),IFLA6(iO),NEC,NGC,NLC,K,V, 
.NXMN 

C0NHGN/C2/VN<6O>,CN<2O>,?M,MH,FN,P?NE9<2O),P<iO),OBJN 
WRITE (1,110) CHARY  12) 

110  FORMAT (A) 

C  USER  INPUTS  FILE  MAKE  OF  MODEL  TO  BE  READ 

WRITE:!, ’ (5(/) ,8X, ”PEAD  IP  HODEL  FROM  BISK” ///’’ENTER  THE  DISK  D 
.RIVE  NUMBER  AND  FILE”/” NAME  WHICH  HOLDS  THE  MODEL  DESIRED. ” //8K 
.,”ENTER  EXACTLY  AS  FOLLOWS” /10K, ” DISK  DRIVE: FILENAME’ ’ / / 121 , ” E 
.6.  I4:F1LENAN”)’) 

WRITE*.  1,  ’  !/7X,”DISK:FILENANE  =  ”,!)’) 

READX5, ’ (AIO) ’ *  FN 
WRITE  T 1 , 1 101  CHAR  <  12) 

C  USER  PROMPTED  TO  INSERT  DISK  r3STAININ6  DESIGNATED  FILE 

NRITE(l,M?i/),5X,”  INSURE  THE  DISK  CONTAINING  THE” //15X, A10//10X 
..’’MODEL  IS  AVAILABLE. ”,7</))’>FN 
PAUSE 

C  DESIGNATED  FILE  OPENED  AND  READ  TO  MEMORY 

OPEM  <  3 , F I LE*FM , STATUS* ’ OLD ’ .FORM*’ UNFORMATTED’ ) 

READ  (3)  PN,  H’XMN,  MM,  K , V, NEC, NGC ,  NLC 
DO  180  1*1,10 
READI3) IFLASXI) 

180  CONTINUE 
DO  150  1*1, K 

READ (3) INEC(!) ,PINEO(I i ,BiD 
CO  240  J*1,V 
READ  <3> A ( I . J ) 

240  CONTINUE 
250  CONTINUE 

OU  270  J*1.V 
READ<3)C<J) 

270  CONTINUE 

IFilFLAGIS!  .Efi.  DTHEN 
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DO  280  1*1, K 
READ<3>CN<I) 

280  CONTINUE 

DO  300  3*1, V 
READ(3)VN<J) 

300  CONTINUE 

READ (310BJN 
ENtlF 

IFLA8I2)*!  " 

CLOSE  13,  ST  AT'JS*’  KEEP  ’ ) 

HRITE 11 , 1 10) CHART !2) 

NR2TEU,’  111 !/),».” INSURE  DISK  LP1  15  AVAILABLE. ”  ,7 (/))’ > 
PAUSE 

C  LAST  READ  FILE  NAME  IS  NRITTEN  TO  TRANSFER  FILE 

0PEN(3,FILE*,LPi sLPDATA’ , STATUS*7  OLD’ , FORK*' UNFORMATTED1 ) 
NRITE<3)FN 

CLOSE i 3 , STATUS*’ KEEP ’ > 

RETURN 

END 
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C  »  I  »  I  $  I  I  *  I  I  I  I  »  »  l  |  t  »  I  I  »  I  I  I  I  I  I  I  I  t  t  »  t  | 

C  NODULE  1  UNIT  16 
C 

C  SUBROUTINE  HEADER 

C  USEs  FQRRATS  AND  DISPLAYS  TITLE/AUTHOR  RASE. 

C  CALLED  BY:  PROSRAH  DATA8 
C  CALLS  s  HONE 
C  VARIABLES:  NONE 

Ct  H  II  I  It  M  t  It  I  M  M  t  I  I  M  M  H  M  t  M  t  t 
SUBROUTINE  HEADER 
NRITE(l,MA)’)CHARil2l 


NRITEU,'  (9X,22!”t”>, '9X,”t”,3X,”  FORTRAN  BASED” ,4)1,” I” 
./9X.”l”>20X,”t”/9X.”l  UNEAR  PR0BRAHNIN6  *”/9X,”*”,20X, 
,”.'9X,”l”.8X,”F0S”.9X,”4”/9Y.,'’t”  J20X,”l”/9X,”l”,3Xt 
.ICRQC0«Pl'TERS”)3X,”»”/9X,22<”l”))’) 


”1 


NRITEU <// 19X,  ”  BY” //9X.”  THEODORE  R.  E.  FRALEY”//18X,”ANB” 
.//I4X,”DAL£  A.  XEN”)M 


RETURN 


END 


265 


Ctttttttttttttttttttttttttttttttlttt 

C  NODULE  1  UHIT16  t 

C  t 

C  SUBROUTINE  MODULI INEW)  ) 

C  USEs  UPON  INITIAL  ENTRY  INTO  NODULE,  SOLICITS  INPUT  AS  TO  WHICH  » 

C  NODULE  GF  THE  SOFTWARE  PACKAGE  IS  DESIRED.  PROVIDES  I 

C  INSTRUCTIONS  AS  TO  WHAT  PRIOR  ACTIONS  ARE  REQUIRED  TO  ENTER  * 

C  EACH  NODULE  AND  PIE  COWHANDS  REQUIRED  TO  SAIN  ACCESS  10  THESE  I 

C  NODULES.  IF  USER  SELECTS  TO  ENTER  ANOTHER  NODULE,  NODULE  1  I 

C  PROBRAN  IS  TERMINATED  KITH  INSTRUCTIONS  ON  SCREEN  SHOWING  THE  I 

C  COMMANDS  REQUIRED  TO  ENTER  SELECTED  NODULE.  OTHERWISE,  USER  t 

C  ENTERS  NEW  MODEL  OP  EDITS  MODEL  WITH  THIS  NODULE.  » 

C  CALLED  BY:  PROGRAM  DATAB  I 

C  CALLS  :  SUBROUTINE  CHECK2(P,N.M, INVAL, INEW)  I 

C  VARIABLES:  t 

C  USED:  1NVAL  I 

C  MODIFIED:  FN, INEW, P'4,  I 

mmttmmmtmmimmmit 

SUBROUTINE  MODULI INEW) 

CHARACTER  V»»6.CN*6,PN$20,NMIJ,FNtl0,PINE8II,PU,0BJN«10 
C0MNCN/C2/ VN ( fcd , CN ! 20) , PN. HM, FN , PI NEQ (20 ) , P 1 1 C ) . OBJN 
C  DETERMINES  IF  NODULE  DESIRED  AlREADV  SELECTED 

IF  I INEW  .  NE.  0) THEN 
iNEW=INEW+l 
SO  TO  200 
END  IF 

WRITE  !1,11&KHAR<12) 

110  FGRHAT(A) 

C  DISPLAYS  MODULE  OPTIONS 

WRITEIl.’ I/12I,” MODULE  SELECTION” //’’THE  FOLLOWING  OPTIONS  ARE  A 
•  VAILABLE: ”/.•”’!.  DATA  BASE  ENTRY  (ENTER  DATA  BASE  0R”/3X,”ED!T 
.  CURRENT  DATA  BASE!”//”2.  LP  INSTRUCTIONAL  NODULE”//” 3.  LP  FRO 
.BLEW  SOLVER  NODULE” I ’i 

WRITEIl.’  I/”4.  LP  SENSITIVITY  ANALYSIS  NODULE”//” 'NOTE:  OPTIONS 
.  2.  OR  :  REQUIRE  THAT  A”/'  ’DATA  BASE  BE  CURRENTLY  STORED  ON  DISK) 
.”)’) 

WRITEIl,’!/, ’’(NOTE:  OPTION  4  REQUIRES  THAT  A  DATA’ ’ /’ ’FILE  HAVE  B 
. EEH  SAVED  UPON  LEAVING  THE”/”OPT!ON  2  OR  3  NODULES  ABOVE.)”)’) 
120  WRITEIl. 130) 

130  FORMAT (/m, ’WHICH  OPTION?  *.«) 

READ(5,’(A1)’»P(1) 

CALL  CHECK2IP, 1.4. INVAL. INEW) 

IF < INVAL  ,EQ.  1 ) THEN 
WRITEIl, 140) 

140  FORMAT  I -’SX,’ INVALID  ENTRY.  PLEASE  REENTER’) 

60  TO  120 
END  IF 

IF  .  INEW  .EQ.  I ) THEN 
C  USER  ELECTS  TO  ENTER  MODEL 
RETURN 
END  IF 

200  WRI1EU,  l!0)ChAS(12* 


:&6 


IF ( INEM  ,EE.  4) THEN 

C  USER  ELEC7S  TU  PERFORM  SENSITIVITY  ANALYSIS  AND  PROMPTED  TO 
C  INSERT  DISK  LPI  TO  WRITE  FILE  NAME  IN  TRANSFER  FILE 

NRITEU.’-’Iii/;, IT, ’’INSURE  DISK  L°2  IB  AVAILABLE. ”,7!/ > 

.)’> 

PAUSE 

C  TRANSFER  FILE  OPENED 

OPEN ( J , F I LE= ’ LP2 i LPDAT AW ’ . STA  TUS= ’ OLD ’ , FORM= ’ UNFORMATTED ’ ) 

ELSE 

C  USER  HAS  SELECTED  OTHER  THAN  SENSITIVITY  ANALYSIS  AND  PROMPTED 
C  TO  INSERT  DISK  LPI 

WPITEd.' INSURE  DISK  LPI  IS  AVAILABLE. ”,7</» 

.  >’» 

FALSE 

C  TRANSFER  FILE  OPENED 

0PEN(3,FIlEs’LP1:L?DATA’ .STATUS2’ OLD’. FORM*  UNFORMATTED’) 

ENDiF 

WRITE  Cl. 1 10' CKAR<12> 

IFIINEN  .EQ.  2) THEN 

C  USER  ELECTS  EDUCATIONAL  NODULE 

WRITE!!, ’iBV’L?  INSTRUCTIONAL  MODULE”) ’) 

ELSEIFilNEH  .EQ.  3) THEN 
C  USER  ELECTS  PROBLEM  SOLVER  NODULE 

WRITE!!,’ (SV’IP  PROBLEM  SOLVER  MODULE”)* > 

ELSE 

WRITE 1 1 . ’ (5X , ’ ’ LP  SENSITIVITY  ANALYSIS  NODULE”)’  i 
ENDIF 

C  MODEL  FILE  NANE  IN  TRANSFER  FILE  READ 
READ (3)FN 

CLOSE (3, STATUS*’ KEEP’ ) 

WRITE (1 TO  USE  THIS  NODULE.  A  DATA  BASE  KUST”/”HAVE  BEEN  P 
- REVIOUSLY  CREATED  USINS  THE”.' ’’DATA  BASE  ENTRY  (NODULE  1)  AND  SAV 
.ZD  TO” /’’DISK,”)’; 

WRITE (1.' (/’’THE  DATA  CASE  WHICH  IS  CURRENTLY’ ’ /’ ’ IDENTIFIED  AS  TH 
.£  PROBLEM  TO  8E  STUDIED” /” I Ss ” d5X , AlO) ’) FN 
C  USER  DETERMINES  IF  PROPER  FILE  NANE  IN  TRANSFER  FILE 

230  WRITE  (I, IS  THIS  THE  MODEL  YOU  WISH  TO  STUDY?  ”,»)’) 

REABi5,‘(Al)’?P(l’ 
i F 1 1 CHAR ( P (1 ) )  .EQ.  69) THEN 
SO  TO  30'* 

ELSEIFMCHARif'l))  .EG.  ?S)TH£N 

C  USER  ENTERS  DESIRED  FILE  NANE  TO  BE  ENTERED  IN  TRANSFER  FILE 

WRITE'l,’ (/’’PLEASE  ENTER  THE  DISK  DRIVE  NUMBER  AND” /” FILENAME 
.  OF  THE  FILE  YOU  WISH  TO  STUDY.”/” (INSURE  THIS  15  ENTERED  EXACTL 
.Y  AS  IT”)’) 

NR!TE(!,M”NAS  SAVED  PREVIOUSLY  AND  ALSO  THAT  THE” /’’PROPER  DI 
. SK  IS  IN  THE  PROPER  DRIVE.)”!’) 

WRITE'!,’ </4X, ’’MODEL  TO  BE  STUDIED  =  ”.$)’) 

FEADI5, ’•:«»<)• ’)FN 

250  WRITE(S,M/,7X,”ARE  CORRECTIONS  NEEDED?  ”,»)’) 

RFAD45. ’  (Ali’lPU) 

IF(iCHAR(P(D)  .EQ.  89! THEN 


SC  TO  200 

EL5EIF <ICHAR<P<D )  .HE.  78 'THEN 
MITEd'MO) 

BO  TO  250 
END  IF 

NBlTEil.H0/CHA8U2) 

IFUNEN  .EO.  4) THEN 

C  USER  PROMPTED  TO  INSERT  DISK  LP2  AND  FILE  NAME  IS  WRITTEN 

NRITEU,’ fill/), IX, "INSURE  DISK  LP2  IS  AVAILABLE.",? 

.</)»’) 

PAUSE 

0PEN<3,F!LE*’LP2:LPDATAr .STATUS*’ OLD’ . FORH=' UHFORWATTED' ) 
ELSE 

C  MODEL  FILE  NAME  WRITTEN  TO  TRANSFER  FILE  FOR  OTHER  THAN 

C  SENSITIVITY  ANALYSIS 

NRITEU, MU/), IX, "INSURE  DISK  LPi  IS  AVAILABLE.",? 

.(/>)’• 

PAUSE 

0PEN(3,  FILEs’LPhLPOAYA’,  STATUS*’ QLD’.FDRH- ’UNFORMATTED’) 

ENDIF 

NRITE(J)FN 

CLOSE (3, STATUS5 ’ KEEP  ’ ) 

ELSE 

WRITE! 1 , 140) 

BO  TG  23U 
ENDIF 

HRlTEU,U0'CHARil2) 

KRITEtl.’ (Ill/), IX, "INSURE  DISK  LPI  IS  AVAILABLE.", 71/))’) 
PAUSE 

300  NRITE'l, jlO)CHAR>12) 
t  INSTRUCTIONS  TO  ENTER  OTHER  NODULES  DISPLAYED 
IFUNEN  ,E3.  2) THEN 

NRITEU,’  iO(/), IX, "TO  ENTER  THE  LP  INSTRUCTIONAL  NODULE:  ”//17X 
TYPE" //19X, "  X  ”/I7X,  ”  LPI  :ED".  3  (/))’) 

STOP 

ELSEIFUNEN  .Eli.  3) THEN 

NRITEU, MBi/), IX, "TO  ENTER  THE  LP  PROBLEM  SOLVER  MODULE: "//!? 
.X, "  TYPE" //19X,"X’’/14X,"LP2:  TAB",  3  (/))’) 

STOP 

ELSE 

WRiTEH.:(8</>,2X,"T0  ENTER  THE  LP  SENSITIVITY  ANALYSIS” /1M, 
."  NODULE: " //17X, "  TYPE" /I9X,”X”/16X,”LP2:  SEN' ',31/!)*) 

STOP 

ENDIF 

RETURN 

END 
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C  I  t  t  t  I  I  t  t  »  I  I  I  »  It  I  I  »  »  I  I  I  I  t  t  t  I  »  I  It  *  I  * 
C  MODULE  1  UNIT  16 
C 

c 
c 
c 
c 

c 

/» 
u 


SUBROUTINE  DBHED 

USE:  DISPLAYS  TITLE  PAGE  OF  MODULE  lf  DATA  BASE  ENTRY  NODULE. 

CALLED  BY:  PROGRAM  DATAB 
CALLS  :  NONE 
VARIABLES:  NONE 

tmttmmmmtmtmmmti 

SUBROUTINE  DBHED 
NR!TEil,MA)’)CHAR<I2) 

NRITEU,’  (4(/),9X,22(”t”//9X,”t”,20X.”t”/9X,”$”,3X,”QATA’ 
.’,eX,”t”/9X.”t”,:0X,”l”,'9X,”*”,8X,”BA5£”,8X,”l”/9X,”l 
.  ”,20X,”t”/9X.”l”, 8X,' ’ENTRY”, 7X«r't”/9X.',»,',20X,’ '$”*’) 
NRITEil,,(9X,”t”,7X,”N0DULE”,7X.”r’,2I/9X,”»”,20Xl”l”!,/ 
.9X.’ ' t'  ’ ,6X,” NODULE  i”,6X,”»”/9X,”*”,20X,”l”/9X,22(”»”), 


PAUSE 

RETURN 

END 
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c  t  t  I  I  I  »  I  It  t  t  I  I  I  I  *  I  I  t  t  I  I  I  t  It  M  I  I  I  t  I  t  I 


MODULE  1  UNIT  1 6 


SUBROUTINE  INTRO 

USE:  PROVIDES  OVERVIEW  OF  LF  PACKAGE  AND  PROVIDES  BRIEF  REFERENCE 
E  MARKERS  TO  DOCUMENTATION. 

C  CALLED  BY:  PROGRAM  DATAB 
C  CALLS  :  NONE 
C  VARIABLES:  NONE 
CttttttMtttlttttttttttttttttttMttt 

SUBROUTINE  INTRO 

WRITEU,’  ;A)’.'CHAR(12! 

NftlTEd.MIX. ’’LINEAR  PROGRAMMING  SOFTWARE  PACKA6E”//”THIS  PAC/A 
.SE  IS  DESIGNED  TO  ALLOW’ ’/’’STUDENTS  TO  IMPROVE  THEIR  UNDERSTANDS 
.6” ’/’’OF  THE  SIMPLEX  ALGORITHM  AND  ALSO’' '"PROVIDE  THE  MANAGERS  A 
.«  ANALYSTS  WITH  A’'/’’PRGBLEM  STL VI NS  TOOL.”)’) 

WRITE ? I . ’ (/.’’THE  PACKAGE  CONSISTS  OF  FOUR  DISTINCT” /’’PROGRAMS  I 
.ANNOTATED  AS  MODULES)  WHOSE” /’’FUNCTIONS  ARE  AS  FOLLOWS: ”//5I,” 
.MODULE  i:  DATA  BASE  ENTRY” /5X,” MODULE  2:  LP  INSTRUCTION’ ’/5)i,”N 
.ODULE  3:  LP  PROBLEM  SOLVER” /5X. ’’MODULE  4:  SENSITIVITY  ANALYSIS” 
.!’> 

WRI7EU.’ !/,”ALL  LP  PROBLEMS  MUST  BE  ENTERED  INTO  A” /’’DATABASE 
.  USING  MODULE  1.  MODULES  2  QR”/”3  MAY  BE  USED  TO  DETERMINE  A  SO 
.LUTION  TO”/”A  PROBLEM  AND  THIS  MUST  OCCUR  PRIOR  TO”/”ENTERINS 
.  MODULE  4.”)’) 

PAUSE 


WRITE i  1 . ’  (A)’)CrlAR(12) 

WRITE ? 1« ’ </f ’ ’ INSTRUCTIONS  ON  HOW  TO  ENTER  EACH  MODULE” /’’WILL  BE 
•  PRESENTED  WHEN  APPROPRIATE.”/ /’’ANSWERS  TO  SPECIFIC  3‘JESTIONS  CON 
.CERNINS” /’’ANY  MODULE  WILL  EE  FOUND  IN  THE  USERS”/” GUIDE  (APPEN 
-DIX  A)  OF  THE  THESIS”/  ’DOCUMENTATION.”)’! 

WRITEIl,’ (/,’ ’ALL  RESPONSES  REQUIRE  A  [RETURN!  TO  NOTE” /’’THE  COM 
.PLETION  OF  INPUT.”//” ALSO,  ALL  YES/NO  INPUTS  MAY  BE  ENTERED”/” 
.BY  CY2  OR  INI,  RESPECTFULLY.”)’) 

PAUSE 

RETURN 

END 
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ctmmimnmnmmiimmm 

C  MODULE  2  UNIT io  t 

C  t 

C  SUBROUTINE  DBE  t 

C  USE:  DISPLAYS  MENU  OF  DATA  BASE  ENTRY  OPTIONS  (NEW  MODEL,  READ  t 
C  EK1STIN6  MODEL, QUIT, INTRODUCTORY  REMARKS).  t 

C  CALLED  BY;  PROGRAM  OATAB  I 

C  CALLS  :  NONE  * 

C  VARIABLES:  NONE  t 

C  t ) I u  H  t i t  t  n  I  t  t  I  tt  tt  u  t  :  i  i  t  I  t  I  I  i  t  t 
SUBROUTINE  DBE 
NRlTE(2,’<A)’tCHAR<l2) 

NRITEU,M12X,”DATA  BASE  ENTRY” //tX,’ 'TO  ENTER  LP  MODEL  DATA  BAS 
,E”/4X.”Y0U  HAVE  THE  FOLLOWING  OPTIONS: CREATE  MODEL  IhT 
.ERACTIVELY:SU8SCRIPTS”/iI,”  (VARIABLES  ANNOTATED  BY  SUBSCRIPTS,  ” 
./3X. "CONSTRAINTS  ANNOTATED  BY  NUMBER  ONLY)”)’! 

NRiTEtl. ’</”?.  CREATE  MODEL  INTERACTIVELY, 'NAMED' ’ /3J, "VARIABLES 
.  AND  CONSTRAINTS  ARE"/!)!, "ASSIGNED  NANES)”//"3.  READ  FROM  DISK 
.”/3X,"  (PREVIOUSLY  CREATED  BASE)")’) 

NRITEU,M/"4.  DISPLAY  INTRODUCTORY  REHARKS"//"5.  QUIT  PROBRAM’ 
.’)’) 

RETURN 

END 


C  t  I  I  I  t  t  I  t  t  t  t  t  I  I  t  t  t  I  I  I  I  t  I  t  I  t  t  I  t  t  t  I  I  t  t 

C  NODULE  i  UNIT 16  I 

C  » 

C  SUBROUTINE  DBM  I 

C  USE:  DISPLAYS  MENU  OF  DATA  BASE  NANA6EHENT  OPTIONS  (DISPLAY, EDIT,  t 
C  SAVE, ENTER  NEW  MODEL, SOLVE, SUIT)  I 

C  CALLED  BY:  PR08RAN  DATAB  I 

C  CALLS  :  NONE  » 

C  VARIABLES:  NONE  t 

C  )  (  I  I  M  M  M  U  H  t  I  I  t  tl  I  t  It  H  M  t  t  I  t  M  t 

SUBROUTINE  DBM 
NRITE(1,'(A)’)CHAR(12) 

NRITEI1,’  '10X,”BATA  BASE  MANAGEMENT ”  ^ ” THE  FOLLOWING  OPTIONS  AR 
.E  AVAILABLE: ”..”’1.  DISPLAY  CURRENT  LP  MODEL” / 31, ”( SCREEN  OR  PRI 
,NTER)”//”2.  EDIT  CURRENT  LP  SODEL”/3X,” (CHAN8E  ANY  PARAMETER) 
,”//”3.  SAVE  CURRENT  MODEL  TO  DISK  FILE” /3I,”  (HAY  THEN  EDIT  TO 
.  ANOTHER  MODEL)”)’) 

NRITE(l,M/”4.  ENTER  MEN  MODEL ” /3X . ”  (CURRENT  iODEL  LOST  IF  NOT 
.  ON  DISK)”/7”5.  SOLVE  PROBLEM” /3X, ”  (INCLUDES  EDUCATIONAL,  ?ROB 
.LEN  SOLVER, AND  SENSITIVITY  ANALYSIS)  ”//”&.  QU1T:UNSAVED 
.  FILES  DESTROYED!”)’) 

RETURN 

END 


i 
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CttttttttttttttttttMittttttlttttttt 

C  MODULE  i  UNIT lfc  t 

C  I 

C  SUBROUTINE  BEN  » 

C  USE:  DISPLAYS  MENU  OF  OPTIONS  RE6RRDIN6  WHICH  HODUlE  IS  DESIRED  TO  I 
C  BE  EXECUTED  NEXT.  ALSO  OPTIONS  OF  RETURNING  TO  BATA  BASE  I 
C  MANAGEMENT  OR  T8  QUIT  THE  LP  *ACKA6E  ARE  DISPLAYED.  I 

C  CALLED  BY:  PROGRAM  DATAB  t 

C  CALLS  :  NONE  t 

C  VARIABLES:  NONE  * 

c  1 1 u 1 1 1 1 1 1 1 1 1 1 n  t  ti  i  n  1 1 1  u  tt  1 1 1 1  n 
SUBROUTINE  DEN 
NRITEU,MA)’)CHAR(22) 

NRITE'tj'dOX, "EXECUTION  MANA6EHENT” //” THE  FOLLONINS  OPTIONS  AR 
•  E  AVAILABLE:  LP' INSTRUCTIONAL  N0D'JLE”/3X,:  *  (EACH  TABLEAU 

.  NAY  BE  DISPLAYED)”//” 2.  PROBLEM  SOLVER  NODULE” Z3X,” (NO  USER  I 
,NTERACT10N)”//”3.  SENSITIVITY  ANALYSIS  MODULE  ”)’) 

NRITEI1, ’ </”4.  RETURN  TO  DATA  BASE  MANAGEMENT  NENU”//”5.  8U!T:U 
.NSAVED  FILES  MILL  BE  LOST!”)’) 

RETURN 

END 
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c  t  t  *  t  M  t  !  t  t  t  t  t  I  t  t  t  t  !  t  t  I  t  t  t  t  M  t  t  t  t  t  I 

C  MODULE  1  UNIT 17 
C  UNIT  $USES:  NONE 
C 

C  SUBROUTINE  CHECK (Ef INVAL, RENEW) 

C  USE:  VERIFIES  USER  INPUT  OF  REAL  NUMBERS  HHICH  HAVE  BEEN  READ  INTO 
C  SIN6LE  ELEMENT  CHARACTER  STRINGS.  DECKS  ELEMENT  BY  ELEMENT 
C  THAT  EACH  CHARACTER  STRIN6  IS  A  NUMERIC,  A  VALID  OPERATOR,  OR 
C  DECIMAL  POINT.  iF  ALL  ARE  VALID,  TRANSFORMS  CHARACTER 

C  STRING  REPRESENTATION  INTO  NUMERIC  REAL.  IF  INVALID 

C  CHARACTER  IS  FOUND,  FLAG  SET  HHICH  CALLING  ROUTINE  CHECKS  TO 
C  SIGNAL  USER  TO  REINPUT  NUMBER. 

C  CALLED  BY:  SUBROUTINE  ADCON 

C  SUBROUTINE  ADVftR 

C  SUBROUTINE  CNVA 

C  SUBROUTINE  DATAN 

C  SUBROUTINE  DATAS 

C  SUBROUTINE  ICNRCH 

C  SUBROUTINE  QBDCH 

C  CALLS  :  NONE 
C  VARIABLES: 

C  USED:  ALLOW**), EiU.M 

C  MODIFIED:  DEC IMA , I NVftl , NEGAT , RNE  N 

C  *  I  I  I  I  I  *  *  I  I  I  I  »  I  »  I  I  *  t  t  *  I  I  I  I  I  I  I  »  I  »  »  I  » 

SUBROUTINE  CH£CK(E,INVAL,RNEW1 
CHARACTER  ALLOWtl,E*l 
DIMENSION  EdO),ALL3M(14) 

REAL  H 


INTEGER  DECIMA 

DATA  ALLQN/MY2y3y4y5y6Y7y6y?V0V*’ 

.'  ’/ 


» 


RNEW*0.0 

H*.l 

!NVAL=0 

DECIMAL 

NEGATE 


DO  400  1*1.10 

C  CHECKS  FIRST  FOR  8LANK  CHARACTERS 
IF  (EU)  .E8.  ALlONUO)  THEN 
60  TO  400 
ENDIF 

C  CHECKS  EACH  CHARACTER  TO  INSURE  ACCEPTABILITY 
DC  200  J-l. 13 

IF  (E(I)  .Efl.  ALLOW (j))  THEN 
IF  (DECIMA  .Efi.  S)  THEN 
GO  TO  )50 

ELSEIF  (Ed)  .EQ.  *-')  THEN 
NE6AT=1 
GG  TO  400 

ELSEIF  (Ed  I  .EQ.  ’.’)  THEM 
DECIMAL 
GO  TO  400 
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ELSE 

RNEH'lOiRNtN  *  (ICHAR(Ed))  -48) 
SO  TO  400 
ENDIF 

ISO  RNE«I=RNEH  +  <  ICHAR  (E  <  I ) ) -48)  *H 

SO  TO  400 

ELSEIF  ‘i  .ES.  13)  THEN 
INVAL=1 
RNEH*0.0 
RETURN 
ENDIF 

200  CONTINUE 
400  CONTINUE 

IF  (NESAT  .Efl.  1)  THEN 
RNEN*  -1.  »  RNEN 
ENDIF 
RETURN 
END 
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C  NODULE  1  UNIT17 
C 

C  SUBROUTINE  CHECK2(E, D.HVAL. INVAL, IHEWJ 
C  USE:  VERIFIES  USER  INPUT  OF  INTEGER  NUMBERS  WHICH  HAVE  BEEN  READ 
C  INTO  SINGLE  ELEJCNT  CHARACTER  STRINGS.  CHECKS  ELEMENT  BY 
C  ELEMENT  THAT  EACH  CHARACTER  STRING  IS  NUMERIC  OR  BLANK.  IF 

C  ALL  ARE  VALID,  TRANSFORMS  CHARACTER  STRING  REPRESENTATION 

C  INTO  NUMERIC  INTESER.  IF  INVALID  CHARACTER  FOUND,  FLAG  SET 

C  WHICH  CALLING  ROUTINE  CHECKS  TO  SISNAL  USER  TO  REINPUT 
C  NUMBER. 

C  CALLED  BY;  PROGRAM  BATAB 
C  SUBROUTINE  ADVAS 

C  SUBROUTINE  CNVA 

C  SUBROUTINE  BELCON 

C  SUBROUTINE  DELVAR  , 

C  SUBROUTINE  DISPLY 

C  SUBROUTINE  6ENIF  I 

C  SUBROUTINE  ICNRCH  , 

C  SUBROUTINE  MODULI INEM)  , 

C  SUBROUTINE  08JCH  , 

C  SUBROUTINE  VNCH  , 

C  CALLS  :  NONE  , 

C  VARIABLES:  , 

C  USED;  AL10W!»),D,EU),HVAI  , 

C  MODIFIED:  INEW, INVAL  t 

cmnmmmmmtmmmmM 

SUBROUTINE  CHECK2(£.D,HVAL. INVAL, INEN) 

CHARACTER  ALLOW  1, Ell 
DIMENSION  Ei  10), ALLOW  11) 

INTESER  D.HVAL 

DATA  ALLOW/ '  1  ’ , 1 2’ , ’ 3’ , ' 4’ . ' 5’ , ’ 6’ , ’ 7 ’ , ’ 0’ , ’ 9’ , ’ 0’ , ’  ’/ 

INEW=0 
INVAL*0 
00  300  1*1,0 
DO  250  J«l,10 

C  CHECKS  FIRST  FOR  BLANK  CHARACTERS 

IFIE(I)  ,E8.  ALLOW  (ID)  THEN 
60  TO  300 

ELSEIFiEII)  .EB.  ALLOW! J)!TWEN 
IMEWINENtlO  ♦  (ICHAR(£!Ii)-48) 

50  TO  300 

ELSEIFU  ,EB.  10/ THEN 


INVAL® 1 

;w£w*o 

RETURN 
END  IF 

200  CONTINUE 
300  CONTINUE 

IF (INEN  .EB.  0  .OR.  INEN  .ST.  HVALJTHEN 
INVAL*1 
JHEN®0 


t 


RETURN 

END1F 

RETURN 

END 
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C  «JOUL£  1  UHIT17 
C 

C  SUBROUTINE  CHECK3(E,INVAL,IN£«) 

C  USE;  VERIFIES  USER  INPUT  OF  INEQUALITY  AND  EQUALITY  SYMBOLS. 

C  IF  ELEMENT  IS  INVALID,  SETS  FLA6  NHICH  CALLJN6  ROUTINE  CHECKS 
C  TO  S18MAL  USER  TO  REINPUT  SYMBOL. 

C  CALLED  3V:  SUBROUTINE  ADCON 

C  SUBROUTINE  DATAN 

C  SUBROUTINE  OATAS 

C  SUBROUTINE  ICNRCH 

C  CALLS  ;  NONE 
C  VARIABLES: 

C  USED:  ALLON(t).Eil) 

C  MODIFIED;  INEN, INVAL 

C  M  t  M  I  H  M  t  t  tl  M  t  M  t  t  I  I  I  M  I  M  II  I  M 

SUBROUTINE  CHECKS iE, INVAl, INEN) 

CHARACTER  ALLOUtl ,£t 1 
DIMENSION  EilOi,ALLON<3) 

DATA  ALLON/’<’, 

!NEH=0 
INVAL =0 

Ir (ICHAR(EU.t)  .ED.  60) THEN 
INEW=0 

ELSEIFUCHAR'Ei)))  .EQ.  62) THEN 
'«EN=1 

ELSEIMICHARIEU))  .EO.  61) THEN 
INEN=2 
ELSE 
INVAL=1 
IKE  11=0 
ENDIF 
RETURN 
END 
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C  NODULE  2  UKIT20 

C  UNITS  FUSES:  UNIT21  THRU  UMIT27 
C 

C  PROSHAH  ESUC 

C  USE:  RAIN  PRCBHAN  OF  NODULE  2,  LINEAR  PH06HANNIN6  PACKAGE. 

C  PURPOSE  OF  NODULE  IS  TO  PROVIDE  A  TUTORIAL  WHICH  PROVIDES 
C  SU I  DANCE  IN  THE  SEQUENCE  OF  STEFS  OF  TRANSFORMS  A  GIVEN 

C  PRGBLEN  INTO  THE  TABULAR  FDRN  WHICH  THE  SINFLEX  RETHOD  IS 

C  APPLIED.  ALSO  THE  NATHENATICAL  OPERATIONS  ARE  EMPHASIZED  BY 
C  SOLICITING  RESPONSES  FRON  THE  USER  UPON  THE  VIEHIH6  OF  EITHER 

C  NUNERICAL  NANIFULATION  OPTIONS  OR  OBJECTIVE  SELECTION  OPTIONS. 

C  USER  IS  GIVEN  INNEDIATE  FEEDBACK  OK  CORRECTNESS  OF  OPTION 
C  SELECTION  WITH  A  BRIEF  INSTRUCTIONAL  NOTE  FOLLOWING  INCORRECT 
C  RESPONSES.  NODULE  2  CONSISTS  CP  6  SEPARATELY  COMPILED  UNITS 
C  (UNIT  20  THRU  UNIT  27)  KITH  ALL  UNITS  EXCEPT  UNIT 20  BEING 

C  OVERLAY  UNITS. 

C  PROGRAK  cDUC  ACTS  AS  A  MEMORY  RELEASE  LOCATION.  WHENEVER  THE 

C  PROGRAK  CONTROL  RETURNS  TO  THIS  UNIT.  ALL  OVERLAY  UNITS  PRE 

C  RELEASED  FROM  MEMORY  PRIOR  TO  KEN  UNITS  BEING  SUHHONED. 

C  CALLED  BY:  NONE 
C  CALLS  :  SUBROUTINE  ASKQ(ASK) 

C  SUBROUTINE  BI6H 

C  SUBROUTINE  CNiIDU 

C  SUBROUTINE  HEADER 

C  SUBf.-'UTlNE  INDEX 

C  SUBROUTINE  IMRO 

C  SUBROUTINE  HODIFA 

C  SUBROUTINE  08NDU 

C  SUBROUTINE  OPT 

C  SUBROUTINE  OPTION 

C  SUBROUTINE  PIVOT 

C  SUBROUTINE  QUESTN 

C  SUBROUTINE  READY 

C  SUBROUTINE  TDISPL 

C  VARIABLES: 

C  USED:  ASK.BIGK, ISTAB, IFLAGtl ) , IFLAS(7) , IFLAGI 10) , ITAB, KFA, 

C  NOD, NEC, N5C, OPTS, QUTP.PN 

C  MODIFIED:  BASIC, C(t), DUAL. IrLAG(2),P(F>,PES 

CMmtmimimmmmmMMi 

FUSES  UCHECK2  IN  UNIT27.CDDE  OVERLAY 
FUSES  UTD1SPL  IN  UNIT26.C0DE  OVERLAY 
FUSES  UHEAfER  IN  UNIT25.CCDE  OVERLAY 
FUSES  UPIVJT  IN  UNIT24. CODE  OVERLAY 
FUSES  UPPT  IN  UNIT23.C0DE  OVERLAY 
FUSES  URF.AOY  IN  UN5T22.CDDE  OVERLAY 
FUSES  U06MLU  IN  UNIT21.C0DE  OVERLAY 
PROGRAK  EDUC 

CHARACTER  VN»4.CH«4.PNF20.KKtJ,FN»IC.FINEBIl,Pli,UBJNI!O 
INTEGER  ARTV, BASIC, PK,PKS, PR, PRS. OPTS, V,VT,CB,PES,OIU, DUAL, OUTF, 
.TIE.FKT.ASK 

COMMON  YE 1 /A » 20, 60> . ARTV i 20 ) , C  X  60) , Z , INEB ( 20) , i FLA6  < 1 0) , CB  <  20» 


. ,NEC,N6C,NLC, IA, INCEKE, INCEX6, INDEXL, XB<20> 
CQRHQN/E2/BASIC,K.KFA,KFS,KF3A,KFSU,QPTS,?K,PKS,PR.PRS,V,VT,RXRH 
C0RH0N/E3/N0D, PES, OIU,  DUAL,  OUTP,  J  TAB,  IBTAB,  IFTA8,BN,  I  IE,  FHT 
CGNN0N/E4/VN(2O),CN(2O),PN,NH,FN,P!NE9(20).PilO),QBJN 
OPEN ( 1 , FILE*’ CONSOLE: ’ ) 

OPEN (5, F ILE= ’ CONSOLE : ’ ) 
lift  I  IE  ( I ,  i  10?  CHAR  (12) 

110  FORMAT (A) 

CALL  HEADER 

C  ROUTINE  WHICH  ALLOWS  USER  TO  CHANGE  DEFAULTS  CALLED 
130  CALL  OPTION 

C  ROUTINE  WHICH  INITIALIZES  VARIABLES  AND  READS  MODEL  CALLED 
CALL  INTRD 

C  DETERMINES  WHETHER  USER  OR  ALGORITHM  TO  PLACE  IN  TABULAR  FORN 
IF (ROD  .E8.  1 ) THEN 

C  USER  TO  PLACE  IN  TABULAR  FORM 
CALL  OBRDU 
CALL  CNNDU 
ELSE 

C  ALGORITHM  TO  PLACE  IN  TABULAR  FORM 
CALL  NODIFA 
END  IF 

C  SOUTINE  WHICH  ADDS  SLACK,  SURPLUS,  AND  ARTIFICAL  VARIABLES  CALLED 
CALL  INDEX 
IFIMQB  .cO.  DTHEN 

C  ROUTINE  WHICH  QUESTIONS  USER  ON  TABLEAU  FORN  CALLED 

CALL  READY 
ELSE 

DO  200  J=KFA,VT 
CUi*-BR 
200  CONTINUE 

ENCIF 

C  CHECKS  IF  ART1FJCAL  VARIABLES  HAVE  BEEN  ADDED 
IFUNEC+NSC)  .NE.  0)  THEN 
CALL  8ISM 
END  IF 

IFdTAB  ,E8,  2) THEN 
BASIC’BASIC4! 

50  TO  300 
END  IF 

C  IF  USER  HAS  SELECTED  SCREEN  OUTPUT  AND  ALSO  TO  SELECT  PIVOT 
C  ELEMENTS,  ROUTINE  WARNS  USER  TO  STUDY  TABLEAUS  CAREFULLY 
IF<PE3  .NE.  3  .AND,  OUTP  ,EQ.  DTHEN 
CALL  QUESTS 
ESDIF 

WRITEI1, 110) CHAR (12) 

IF-PES  .E9.  3? THEN 
IF ( (NEC»NGCi  .NE.  OTHEN 
WRITE (I, 220) 

220  F0RRAT(1H/»,BX. ’INITIAL  BASIC  SOLUTION’,:-/)) 

ELSE 

WRITE  <  1 , 240 
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FG*NATUHV),5X, ’INITIAL  BASIC  FEASIBLE  SOLUTION', 71/)) 

ENOIF 
PAUSE 
ENDIF 

C  USER  SELECTED  OUTPUT  DEVICE  FILE  OPENED 
IFIOUTP  .E3.  DTHEN 
0PEN<2,  FILE*’ CONSOLED) 

NRITEI2,110)CHAR(12) 

ELSE 

0PEN<2,FILE=’fRINTERi’! 

ENOIF 

C  TABLEAU  HEADEP  PRINTED  IF  USER  HAS  ALLOWED  ALGORITHM  TO  SOLVE 
C  WITHOUT  USER  INTERFACE 
IF(P£S  ,E8.  3' THEN 
IF((NEC»N6C)  .NE.  0) THEN 

NRITE(2,’a0X,A20/i0X,” INITIAL  BASIC  SOLUTION” /)’)PN 
ELSE 

NRIT£<2,' <10X,A20/4X, ’’INITIAL  BASIC  FEASIBLE  SOLUTION” /)’) PN 
ENOIF 
ELSE 
I*i 

WllTE(2,290)PtM 

ENDIF 

C  BASIC  SOLUTION  COUNTER  INCREMENTED 
280  8AS1C*BAS1C*1 

IF  (BASIC  .NE.  UTHEN 
WRITE(2,2?0)PN,  BASIC 

290  FORMAT 1 10X, A20/10X, ’ BASIC  SOLUTION  I’ ,12,/) PN. BASIC 
ENDIF 

C  FLA6  DENOTES  TABLEAU  WITH  BASIC  VARIABLES  ANNOTATED  BE  DISPLAYED 
IFLA6<9)=2 
CALL  TD1SPL 

C  ROUTINE  CALLED  WHICH  DETERMINES  EXISTENCE  OF  OPTIMALITY 
300  CALL  OPT 

IF {OPTS  .Efi.  !  .OR.  TFLA6I75  .EB.  1  .OR.  I FLAG ( 1 )  .NE.  05THEN 
C  TABLEAU  IS  EITHER  OPTIMAL,  UNBOUNDED,  OR  INFEASIBLE 

320  NRITE(1,D0'CHAR(12) 

NR!TEU,M10(/).”N0ULD  YOU  LIKE  TO  PERFORN  FURTHER  PIVOTS’ ’ /I IX 
. , ” ON  THIS  TABLEAU?  ”,»)’) 

REAN5,MAD’)P(D 
1FUCHAR<P!D)  .EB.  78) THEN 
C  ROUTINE  ALLOWS  EXIT  FROM  MODULE 

CALL  ASIC (ASX: 

IF  (ASK  .EB.  DTHEN 
60  TO  130 
ENDIF 

ELSEIF < ICHARXPd ) )  .EB.  89! THEN 
IF  (DUAL  ,E9.  DTHEN 
P£S*2 
0UAL*2 

NRITE(1.I10)CHAR(12) 

NP1TEU,’ (D </),’’ THE  OPTION  OF  PERFORMING  DUAL  PIVOTS  HAS” 


. /6X , ’ ' BEEN  ACTIVATED  AT  THIS  TIME.”, »</))’) 

EMDIF 

ELSE 

MITE(1,M/SX,” INVALID  ENTRY,  PLEASE  REENTER”//)') 

PAUSE 
60  TO  320 
ENDIF 
ENDIF 

CALL  PIVOT 

IFUFLA6U0)  .cfi.  5) THEN 

C  FLA6  INDICATES  FURTHER  PIVOTS  NOT  DESIRED  OR  ALLONED 
CALL  ASKB(ASK) 

IF  (ASK  .EQ.  DTHEN 
60  TO  130 
ENDIF 
ENDIF 

NRITEU,U0)CHAR(12) 

C  DETERMINES  IF  INTERMEDIATE  TABLEAU  TO  BE  DISPLAYED 
IFdETAB  .NE-  0) THEN 

IF ( • (FLOAT ( BASIC- i ) ) / (FLOAT ( I BTAB) ) )  .EB.  FL0AT((BASIC-l)/IBTA3i 
. ) THEN 

IF (OUTP  .Efi.  DTHEN 
OPEN ( 2 , F ILE= ’ CONSOLE : ’ ) 

ELSE 

0PEN(2,FILEs’PRINTER: ’ ! 

ENDIF 
50  TO  280 
ELSE 

8ASIC=8AS1C+1 
60  TO  300 
ENDIF 
ELS  t 

BASIC3BPSIC+1 
SO  TO  300 
ENDIF 
STOP 
END 
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C  NODULE  2  UNI 121  I 

C  UNIT  «US£5t  UNIT27  % 

C  ♦ 

C  SUBROUTINE  OWDii  t 

C  USE;  DISPLAYS  OBJECTIVE  FUNCTION  AS  INPUT  IN  NODULE  1,  SOLICITS  < 

C  RESPONSE  TO  NENU  OF  OPTIONS  OF  OPERATIONS  WHICH  NAY  BE  I 

C  APPLIED  TO  PLACE  OBJECTIVE  FUNCTION  IN  MAXIMIZATION  AND  Z-X*0  I 

C  PORN.  PROVIDES  INNEDIATE  FEEDBACK  AND  DISPLAYS  OBJECTIVE  I 

C  FUNCTION  AFTER  PROPER  NODIFICATION.  ONLY  UTILIZED  IF  UtcR  t 

C  ELECTS  TO  PERFORN  OBJECTIVE  FUNCTION  NODIFICATION.  I 

C  CALLED  BY:  PRG6RAN  EDUC  t 

C  CALLS  ;  SUBROUTINE  CHECKUP, N,N,INVAL,INEN>  I 

C  VARIABLES:  » 

C  USED:  I FLAG (5) , INEH, INVAL,NH,NIHN,V, VN(t)  I 

C  MODIFIED:  C(l), >><»), T  * 

C I t  t It i I M  t  M  t i t  tt 1  I  I  I  I M  t  t  l  I  It  I  t  M  ) 
♦USES  UCHECK2  IN  UNI T27. CODE  OVERLAY 
SUBROUTINE  GBNDU 

CHARACTER  VN»4,CNI6,PNII0.NH»3,FN*;0,PINEB»1,F11.0BJN»0 
INTEGER  ARTV, BASIC, PK,PKS,PR,PRS, OPTS, V,VT,CB,PES.OIU, DUAL, OUTP, 
.TIE,FNT,T 

COHHON/El/A(2O,6O),ARTV(2Oi,C(6O),r,INE0(IO). IFLA6(10i ,CB(20) 

. , NEC. NSC, NLC, IA, INDEXE. INDEXG. INDEXL, 13:20) 
CCIWGN/E2/BASIC.K,KFA,KFS,KFSA,KFSU,0F'TS.PK,PK5,PR,PR3.V.VT,R!!NN 
COHNON  /  E3  /NOD ,  PES,  0  III ,  DU  AL.  CUTF , !  TAB ,  131  AS ,  IFTAB,BH,TIE,FNT 
C0MNON/E4/VN(20),CN:20),PN.HH,FN,?!NEfi:20i ,P< 10) . 06JN 
100  URITEIi,!10)CHAR(12) 

110  FORNATiA) 

C  OBJECTIVE  FUNCTION  DISPLAYED  AS  INPUT  BY  USER 

W?ITE<1,’(4X. ’’OBJECTIVE  FUNCTION  MODIFICATION”, 8</>, ’’THE  OBJECT 
.IVE  FUNCTION,  AS  ENTERED.  N.’LL”/”BE  DISPLAYED  NEXT.  AFTER  THE  D 
. ISPLAY,”/”YQU  HILL  BE  ASKED  10  SELECT  THE  OPTICN”)’) 

HSITEfl, ' (’’HHICH  HILL  TRANSFORM  THE  OBJECTIVE’ ’ /’’FUNCTION  INTO  T 
.HE  PROPER  TABLEAU  FGRM”/”FQR  THE  SIMPLEX  ALGORITHM.”, 71/))’) 
PAUSE 

HR1TE(1,110)CHAR(12) 

HR1TEU,120) 

120  F0RNAH4X, ’OBJECTIVE  FUNCTION  MODIFICATION’ /7X, ’PRESENT  OBJECTIVE 
.FUNCTION’/) 

C  NUMBER  GF  80  COLUMN  DISPLAYS  REBUIRED  DETERMINED 
T='(V-n/5i*l 
DO  300  N»1,T 
1FUFLA615)  .EG.  1 ) THEN 

C  VARIABLE  NAMES  PRINTED  AS  COLUMN  HEADERS 

NRITEU,’  (10X,I)’) 

DO  ISO  J«fN»5!-4,N»5 
IFU  ,51.  V)THEN 
60  TO  180 
ENDIF 

HRITE(1;130)VN(J) 

130 
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180  CONTINUE 

HRITEU.M”  ”)’) 

ENDIF 

WtITEU,Ml<H,*)U 
DO  250  J*<NI5)-4,Nt5 
IFtJ  .6T.  ViTHEN 
SO  TO  250 
END  IF 

«ITE(1,200)J 

200  FMMT<7It,I<’,!2l’>,,2MI 

250  CONTINUE 

NRITEtl.M”  ”)’) 

IF  IN  .EB.  1 ) THEN 

#RITEa.M2X.A3. IX,  ’Z  =”,»)’)HH 
ELSE 

NRITEtl.MlOX,*)’) 

EN9IF 

C  OBJECTIVE  FUNCTION  COEFFICIENTS  DISPLAYED 

DO  280  J*(NI5)-4,NI5 
IFtJ  .6T,  V) THEN 
SO  TO  289 
ENDIF 

IFIFNT  .EB.  0)7H£N 

KRITE(l,MlX,’M”,U,l?Eil.4.t)’)C(J) 

ELSE 

NRITEU,M1X,”+”,1X.F11.4,»)'ICIJ) 

ENDIF 

280  CONTINUE 

NRITEU.M”  ”,//)’) 

300  CONTINUE 
PAUSE 

»RITEU,liO)CHARU2) 

NRITtU.320) 

C  OPTIONS  DISPLAYED  WHICH  USER  SELECTS  THE  ONE  WHICH  PROPERLY 

C  MODIFIES  OBJECTIVE  FUNCTION 

320  F0RHATi4X, ’OBJECTIVE  FUNCTION  NODIFICATIONM 

NRITEll,M//, ”T0  PLACE  THE  OBJECTIVE  FUNCTION  IN  THE' V' ’PROPER  F 
.ORHAT  FOR  THE  3IHPLEX  ALBORITjRf” /"WHICH  OF  THE  FOLLOWING  SHOULD 
.  BE  BONE?”/)’) 

NRITEtljM’M.  ADD  -C«J)  TO  BOTH  SIDES  OF  EQUATION.”// ”2.  HULTIP 
.LY  EQUATION  BY  -1  AND  THEN  ADD”/3X,” -CIJ>  TO  BOTH  SIDES  OF  EBUAT 
.ION.”//’ '3.  NO  CHAN6ES  ARE  NECESSARY.”)’) 

330  NRITEU.340) 

340  F0RHAT</'7X. ’WHICH  OPTION  IS  CORRECT?  ’.*! 

REALMS.  MAI)  ’  )P<1) 

CALL  CHECK2(P.1.3.INVAL,INEN) 

IFUNVAL  .EB.  15 THEN 
WtlTE'1,360) 

340  FORMAT </5X,’ INVALID  ENTRY,  PLEASE  REENTER’) 

60  TO  330 
ENDIF 

C  OBJ  FUNCTION  PROPERLY  MODIFIED  AND  USER  RECEIVES  FEEDBACK 
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IFiHXHM  .EB.  1 ) THEN 
M  370  3* 1,V 
C(J)«*C(J> 

I/O  CONTINUE 

IFilNEH  .EQ.  WHEN 
WRITE (1 , 380/ 1MCK 

380  FORHftTt/lOT, ’OPTION  I’.il,’  IS  CORRECT.’//) 

PAUSE 
60  TO  500 
ELSE 

WRITE  U , 400) INEW 

400  FBfiHATU?)!, ’OPTION  *\I1,’  IS  INCORRECT. ’//«,’ THE  PROPER  RESP 
.ONSE  NAS  OPTION  «.’//) 

PAUSE 
80  TO  500 
ENCIF 

ELSEI?<IHHN  .EB.  2) THEN 
IFIINEN  .EB.  2) THEN 
NRITEU, 380)  INEN 
PAUSE 
60  TO  500 
ELSE 

MITE  (1,420)  INEN 

420  f ORHAT I /9X, ’OPTION  I’ ,11,’  IS  INCORRECT. 7/41, ’ THE  PROPER  RESP 

.ONSE  NAS  OPTION  *2.’//) 

•PAUSE 

ENDIF 

NH*’HAX’ 

ENDIF 

500  NRITEU, »I0)CHAR(12) 

C  PROPERLY  MODIFIED  OBJ  FUNCTION  DISPLAYED 

NRITEU.'  I2X.”AFTEF  THE  PROPER  NCDIFICATION.  THE” /6X,” OBJECTIVE 
.  FUNCTION  FORK  IS:”/)’) 

T*tV/5)+S 
DG  700  N*1,T 
IF <  1FLAS(5>  .EB.  WHEN 
NRITEU, ’(101,*)’) 

DO  550  J*!NI5)-4,N*5 
IF ( J  .6T.  V) THEN 
60  TO  550 
ENDIF 

NRITEU.  520)VN(Ji 
520 

550  CONTINUE 

NRITEU,’!”  ”>’) 

ENDIF 

NRITEU.’ !lOX,»>’> 

DO  600  J«(NI5)-4.M5 
IF <J  .61.  V)THEN 
SO  TO  600 
ENDIF 

NRITEU,  570)J 
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570  F0fflWT(7X,’X<’,I2,M’,:Xf*> 

600  CONTINUE 

NMTEUjM”  ”)’> 

IF (N  .EQ.  WHEN 
IFIHXNN  .E9.  1 ) THEN 
NfiITEIlfM2X,”MAX  Z 
ELSE 

«RITEU.M2X,”NAX 

ENDIF 

ELSE 

MRITE(lfM10X,l>’) 

ENDIF 

90  659  J«IN45)-4,NI5 
IFi.J  .ST.  V)THEN 
68  TO  650 
ENDIF 

IF<FHT  .EQ.  0) THEN 

NRITEU,’  (1X,”+”,1X,1PE11.4,$),)C(J) 
ELSE 

NRITEIi, MIX, ’’♦’VX.FU. 4, ♦>’>€',» 
ENDIF 

650  CONTINUE 

IF(N  .EQ.  T) THEN 
NRITE(1,M”  -=0”):) 

ELSE 

NRITEII,’  (”  ”)’) 

ENDIF 
700  CONTINUE 
PAUSE 
RETURN 
END 
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C  t  I  t  t  I  I  I  I  M  t  I  I  t  t  t  t  t  I  t  t  t  t  (  I  t  I  I  t  I  I  I  t  t  ( 

C  NODULE  2  UN1T21  t 

C  * 

C  SUBROUTINE  OPTION  t 

C  USE:  DISPLAYS  DEFAULT  OPTION  VALUES  AND  SOLICITS  RESPONSE  TO  t 

C  CHAN6E  THESE  DEFAULTS.  IF  OPTION  IS  SELECTED  TO  BE  CHANGED.  I 

C  USER  REVIEWS  MENU  AND  SELECTS  DESIRED  METHOD  AND  IS  RETURNED  t 

C  TO  DEFAULT  OPTION  DISPLAY.  SORE  OPTIONS  ARE  CHANGED  UPON  t 

C  SELECTION  DUE  TO  ONLY  TWO  METHOD  BEING  POSSIBLE.  OPTIONS  ARE  I 

C  RESET  TO  PROGRAMMER  SPECIFIED  DEFAULT  UPON  EACH  CALL  TO  THIS  » 

C  SUBROUTINE.  I 

C  CALLED  BY;  PROGRAM  EDUC  t 

C  CALLS  :  SUBROUTINE  CHECr.2  (D. N.H,  INVALt  INEW)  I 

C  VARIABLES;  I 

C  USED:  INEU.  INVAL  I 

C  MODIFIED:  D, DUAL, FHT,IBTAB.1FTAB,ITAB, MOB, GIU,DUTP,PES  I 

imMmmmmtmmitmmtM 

SUBROUTINE  OPTION 

CHARACTER  0(10)11 

INTEGER  PES.OIU<BUAL,OUTP,TJE,FHT 

CCWIOM/E3/51GD,  RES,  QIU,  DUAL.  DUTP,  ITAB.IBTA3,  IFTAB,B*1,  TIE,  FHT 

i!0D31 

PES*1 

DUAL-1 

OlU-l 

ITAB-1 

1BTAB*1 

1FTAB=1 

OUTPM 

Ff!T*l 

100  NRITEU, 1I01CHARU2) 

110  FQRKflT (A; 

C  DEFAULT  OPTIONS  DISPLAYED 

M!TE(1,M12X, "DEFAULT  OPTIONS’ 75K, ’’ENTER  OPTION  NUMBER  TO  CHAN 
.«”)’> 

WRITE (1 , '  ("i. TABLEAU  FORMATION’ ’ .  UX,»)  ’ ) 

IF (MOD  .EQ.  1 ) THEN 
NRITEU,’  (6).”USER”  !•’) 

ELSE 

NRITEU,’  (IX, ’’ALGORITHM”)’) 

ENDIF 

NRITEU,’  (”2, PIVOT  ELEMENT  SELECTION”. 5*,*)’) 

IFiPES  .S3.  11THEN 

NPITEU, MIX, ’’USER  SEL”/3iX,”AL6QR  CHK”)’) 

ELSEIFiPES  .EB.  2) THEN 

NRITEU, MIX, ’’USER  SEL”/31X,”NQ  CHECK”)’) 

ELSE 

NRITEU,’  (IX,  ’’ALGORITHM” /3W,”  SELECTS”)’) 

ENDIF 

NRITEU, M/,”3.DUAL  PIVOTS”, 26X,*)’) 

IF 'DUAL  .EQ.  PTHEN 
NRITEU. M”N”D 


207 


ELSE 

NRnEU,M”Y”>’> 

ENDIF 

NRITEd,’  <”4.INFEASIBL£,UNBQUNDED,0PTIHAL”/4X,’ 'SELECTION  IDENTI 
.F!CATIQN”,2X,*)’) 

IF (OIU  .EC.  DTHEN 
NRITEd.  MAI,  "USER")’) 

ELSE 

NRITEd,’  (IX,  "AL50RITHH")’) 

END  IF 

WUTEd.M/, "5. TABLEAUS  TO  BE  DISPLAYED" /4I, "INITIAL", 191,*)’) 
1FUTAB  ,EB.  DTHEN 
NRITEd.  M9X,"Y"t’i 
ELSE 

NRITEd,M9I,"N"!’> 

END  IF 

NRITEd,  M4X,"  INTERMEDIATE",  18X,’N  *  ",!2)’)IBTAB 
NRITEd,  M4X,  "FINAL”, 217,*)’) 

IFdFTAB  .ED.  DTHEN 
NRlTEd,M9X,”Y")’) 

ELSE 

NRITEd, M9X,"N")M 
ENOIF 

NRITEd, ’("A.OUTPUT  LOCATION",  131,4)’) 

IF  (OUT?  .ED.  DTHEN 
NRITEd,M4I,  "SCREEN")’) 

ELSE 

NRITEd, M3X, "PRINTER")’! 

ENOIF 

NRITE(1,M/, ”7. OUTPUT  FGRHAT’’,15X.fl!> 

IFtfMT  .ED.  0) THEN 
NRITEd.M2I,"E  FORMAT”!’' 

ELSE 

NRITEd,’ (2I,”F  FORMAT"'’) 

ENOIF 

NRITEd, M"8.N0  CHANGES” /7’MSEE  DOCUMENTATION  TOR  EIPLAiNATION 
. ’’/,7X.’’HHICK  OPTION  (ENTER  1*8) ’  ’’,!)’) 

READ(5,’ (AD’)Dd) 

CALL  CHECX2 (0,1,8, 1NVAL, 1NEN) 
iFdNVAL  .ED.  DTHEN 

NRITEd, MSI, "INVALID  ENTRY  PLEASE  REENTER”)’) 

SO  TO  100 
ENOIF 

60TCd30, 220, 270, 300, 400,500, 530,540!  INEN 
130  NRITEd,  D0)CHARd2) 

C  MODIFICATION  OPTIONS  DISPLAYED 
NRITEd,  140) 

140  F0RNATI2I, ’EDUCATIONAL  MODULE  OPTION  SELECTION’/) 

NRITEd, M" IN  ORDER  TO  PLACE  THE  LP  MODEL  INTO  THE" /’’PROPER  FOR 
.(!  FOR  THE  SIMPLEX  ALSORITHN’  ’  /”  (OBJECTIVE  FUNCTION  CHANGES,  ADDIT 
. IDN  OF’ ’/’’SLACK  OR  ARTIFICAL  VARIABLES),  WHICH’ ’/’ ’METHOD  IS  DESI 

.RED?"//)’) 
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*tftITE(l, ’ (”  1.  USER  SELECTS  MODIFICATION  AN&' ’ /3X , ” ALSORITHM  CHEC 
.KS,?//ieXf”0R'’//’*2.  AL63RITHK  PERFORMS  MODIFICATIONS. ”/3)(”  (MO 
.  USER  INPUT) ”>’> 

160  NRITEU,  170) 

170  FORMAT (/13X. ' WHICH  OPTION?  ’,$) 

READ'S. ’!A1)’)DU) 

CALL  CHECKZfD, 1,2. INVAL.INEN) 

1FUNVAL  .Efl.  1) THEN 
NRITEU, 190) 

ISO  FORMAT (/5X, ’ INVALID  ENTRY,  PLEASE  REENTER’) 

SO  TO  160 
ELSE 

H03=INEH 
SNOIF 
SO  TO  100 

220  NRITEU,  HO’CHAR  (12) 

C  PIVOT  ELEMENT  SELECTION  OPTIONS  DISPLAYED 
NRITEI1,140) 

NRITEU.’  >‘”IN  SELECTION  OF  PIVOT  ELEMENTS  FOR  THE” /’’SIMPLE)!  ALG 
.ORITHM,  WHICH  METHOD  NGUU)”/”YOU  LIKE?”)’) 

NRITEU. ’?2(/',”l.  USER  SELECTS,  AL80RITHM  CHECKS.  ”/JX,”  (MAY  CH 
.AN6E  SELECTION  AFTER  CHECK)”//”2.  USEP  SELECTS,  NO  ALGORITHM  CHE 
,CK.”'/”3.  ALGORITHM  SELECTS,  NO  USER  INPUT.”)’) 

240  NRITEU,  170) 

READ:5,’!AI)’)DU) 

CALL  CHECK21D, 1 , 3, INVAL,  INEN) 

IFUNVAL  .£8.  1  i  THEN 
NRITEU, 139) 

30  TO  240 
ELSE 

PES=INEN 
ENDIF 
SO  TO  100 

270  NRITEU.  110)  CHAR  (12) 

C  DUAL  PIVOT  OPTIONS  DISPLAYED 
280  NRITEU,  140) 

NRITEU.’ <8</)”H0ULB  YOU  LIKE  TO  BE  ABLE  TO  PERFORM” /MX, ’’DUAL 
.  PIVOTS?  ”)’> 

NRITEU.’?/, ’’(DUAL  PIVOTS  ARE  ALLOWED  ONLY  IF  USER” /’’SELECTS  PI 
.VOT  RON  AND  COLUMN  ELEMENTS? ”//  13X, ” (Y'N.RETUPN)  ”,$)’/ 

READ?5,’  (AD’)DU! 

IFUCHAR(DU))  .EB.  8?) THEN 
DL'AL-2 

ELSEIFUCHARiDU))  .EB.  78) THEN 
DUAL-1 
ELSE 

NRITEU.  180) 

60  TO  270 
END  IF 
80  70  100 

300  NRITEU,  U0)CHARU2) 

C  IDENTIFICATION  OF  FINAL  TABLEAU  OPTIONS  DISPLAYED 


WRITE (l, 140) 

WRITE ( 1 ,  ’  ( ’  ’  AS  OPTIMAL,  INFEASIBLE,  OR  UNBOUNDED*  7” SOLUTIONS  OCC 
.UR,  WHICH  METHOD  WOULD  YOU” /’’LIKE?”)') 

WS1TE(1I’(2(/),”1.  USER  ATTEMPTS  TO  IDENTIFY,  ALSORITHH* ’ /3I. ” CH 
.ECK5.”//”2.  SYSTEM  IDENTIFIES  AND  REPORTS  AS”/3X,” OCCURS.”)’) 
320  WRITE  1 1 . 170) 

R£AD(5,  MAID  I'll) 

CALL  CHECK2!D,1,2,INVAL, IN£H) 

IFIINVAL  .EB.  DTHEN 
WRITE (1 f 180) 

SO  TO  320 
ELSE 
OIUsINEN 
ENDIF 
SO  TO  100 

400  KR!TE!1,U0)CHAR(12) 

C  TABLEAU  DISPLAY  OPTIONS  SHOWN 
WRITE  < l , 140) 

WRITE(lf * (’ 'WHICH  TABLEAUS  W01R.D  YOU  LIKE  DISPLAYED?”)’} 

420  NRITEU,M/5X.” INITIAL  TABLEAU?  (Y/W>  ”,*<’) 

READ(5,MAl)’!Dd) 

IFUCHARiDd))  .EB.  89) THEN 
I TAB3! 

ELSEIFUCHAR(DU))  .EB.  78) THEN 
ITAB=2 
ELSE 

WRITE! 1,180) 

50  TO  420 
EN01F 

440  HRITEd,’  M5X,”  INTERMEDIATE  TABLEAUS?  (Y/N)  ”,*)’> 

REA015,’ (Al)’)Dd) 

IFdCHAR(Dd))  .EB.  59) THEN 

NPITEd.M/’ 'EVERY  N1THI  INTERMEDIATE  TABLEAU  MILL  PE”/15X,”D1 
.SPLAYED.”!’) 

450  HRIT£11,M/4X,”NHAT  VALUE  DO  YOU  DESIRE  FOR  N?”//17X,”N  *  ”, 
.4)’) 

READ(5,M2Al)')Dd),Di2) 

CALL  CH£CK2(D,2,99,INVAL,INEN) 

IFIINVAL  .EB.  DTHEN 
NRITEd,190) 

PAUSE 
SO  TO  450 
END  IF 
ilTAMNEN 

ELSE1F <1CHAR<D<D )  .EB.  78) THEN 
18TAB*0 
ELSE 

NRITEd.180) 

GO  TO  440 
END1F 

460  NRITEI1, M/51,  "FINAL  TABLEAU?  (Y/N)  ”,*)’) 

READ<5.MAD’lD(l) 
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IFUCriMMOim  .EQ.  89) THEN 
IFTAB*1 

ELSEIFfICHA?(D(D!  .EQ.  78) THEN 
JFTA8*2 
ELSE 

HR1TEU.180) 

SO  TO  440 
END  IF 
80  TO  100 

C  OUTPUT  LOCATION  OPTION  CHANGED 

500  If (QUTP  .EQ.  DTHEN 

0UTP=2 
ELSE 
0UTP*1 
ENDIF 
60  TO  1)0 

C  OUTPUT  FORHAT  CHANGED 

530  IF(FNT  .E8.  DTHEM 

FNT=0 
ELSE 
FRT=1 
ENDIF 
SO  TO  100 
560  RETURN 

END 


c  I  (  I  t  t  t  t  I  I  I  (  t  I  t  I  I  t  t  I  I  I  I  t  t  I  t  I  t  I  t  I  I  t  I  t 

C  IWDULE  2  UN  1 722  t 

C  UNIT  tUSEs:  UN1T26  AND  UN1T27  I 

C  t 

C  SUBROUTINE  READY  I 

C  USE:  DISPLAYS  QUESTIONS  CONCERNING  WHETHER  OR  NOT  THE  TABLEAU  t 

C  WHICH  IS  DISPLAYED  IS  AN  INITIAL  BASIC  SOLUTION  AND  READY  FOR  t 

C  THE  INITIAL  PIVOT  OF  THE  SIMPLE*  ALGORITHM.  IF  ARTIFICIAL  t 

C  VARIABLES  HAVE  BEEN  ADDED,  THE  '816  M‘  METHOD  HOST  HAVE  BEEN  t 

C  APPLIED  TO  THE  VARIABLES  SPECIFIED  BY  USES.  USER  IS  6IVEN  I 

C  IMMEDIATE  FEEDBACK  AND  INSTRUCTIONAL  COMMENTS  WITH  BOTH  I 

C  CORRECT  AND  INCORRECT  RESPONSES.  ROUTINE  MODIFIES  TABLEAU  I 

C  CORRECTLY  REGARDLESS  OF  USER  INPUT.  I 

C  CALLED  BY;  PROGRAM  £DUC  t 

C  CALLS  :  SUBROUTINE  CHECK2(P,N,N, INVAL,INEW>  I 

C  SUBROUTINE  TDISPL  t 

C  VARIABLES:  I 

C  USED:  BH . 1 NEW , I NVAL . XF  A , NEC , NGC . VT  » 

C  MODIFIED:  C!t),IFLA6(3),iFLA6<9),P*t)  » 

C  t  t  t  |  |  t  I  I  t  I  t  t  I  t  t  M  I  t  (  I  M  I  I  «  t  t  I  I  I  t  t  t  I 

♦USES  UCHECK2  IN  UNIT27.CODE  OVERLAY 
♦USES  UTDISPL  IN  UNITI6.C00E  OVERLAY 
SUBROUTINE  READY 

CHARACTER  VNU;CN»6.FN«20,HH»3,FN*10,P1NEB*I,P11,QBJNI10 
INTEGER  ARTV, BASIC, PK,FXS, PR, PR$.QPT3,V,VT,CB,PES.0IU. DUAL, OUTP, 
.TIE.FMT 

C0MM0N/El/Ai20,60) , ARTVI20) ,C(40) . Z, JNE9I20) , IFLAfi(lO) ,CB (20) 

. , NEC, NSC, NIC, IA, INDEXE, JN0EX6, 1NDEXL. XB'20) 
C0MM0M/E2^8ASIC,K,KFA,KFS,i<FSA,KFSU,0PTS,fK,PK3.PR,PRS,V,VT,MXMN 
C0MM0N/E3/N0C,?ES.0IU, DUAL, 0UTF,ITA3,!BTAB,!FTAB,8M, TIE, FNT 
CDKM0N/E4'VN(2'*  NI20),PN,MH,FN,PINEC(20»,P«10),OBv:N 
100  WRITE  (1,1 10)  CHARU2) 

110  FORMAT (A) 

WRITE U.' (A!/),’ 5 THE  TABLEAU  AS  MODIFIED  PREVIOUSLY, ’’/’’WILL  BE  D 
.1  SPLAYED. ’’//’’YOU  WILL  THEN  BE  ASKED  IF  THE  TABLEAU  IS” /”IN  THE 
.  CORRECT  FORM  FDR  THE  SlMPLEX”/”AL60R!THH.’'//)’i 
PAUSE 

WR I TE  < 1 , 110) CHAR  < 1 2 ) 

C  FLAGS  ALLOW  DISPLAY  OF  TABLEAU  WITHOUT  BASIC  VARIABLES  ANNOTATED 
JFLAG(3)*1 
IFLAB i9) =2 

OPEN  <  2 , F I LEr ’ CONSOLE : ’ ) 

CALL  TDISPL 
WRITEU,  I10)CHAR!  12) 

WRITE)!. ’<ct/).iX,”lS  THE  TABLEAU  IN  THE  PROPER  PORN  F0R”/10X,” 
.THE  INITIAL  PIVOT? 

READ(5,’ iAl)’)P(l) 

IF ( YNEC+NSC)  .E8.  0) THEN 
IFilCHARtP(U)  ,EQ,  89) THEN 
WRITE (1,1 30) 

130  FORMAT <//7X,’ YOUR  RESPONSE  WAS  CORRECT. ' /2X,’ THE  TABLEAU  IS  IN 

.  THE  PROPER  FORM.’,//) 
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PAUSE 
SO  TO  300 

ELSEIF ( ICKAfr <P  ( 1  > )  .EQ.  78) THEN 
NRITEtl. 150) 

150  FORMAT (/(fcX.’VOUR  RES^i  HAS  INCORRECT.’/) 

NRITEtl, 160) 

UO  FORMAT!/ ’ONLY  SLACK  VARIABLES  HAVE  BEEN  ADDED,  S0’/2X,’NQ  FORT 
.HER  MODIFICATIONS  ARE  NEEDED.’ //Sy YOU  PRESENTLY  HAVE  AN  INITIAL 
.  BASIC’ /15Y, ’SOLUTION.’//) 

PAUSE 
60  TO  300 
ELSE 

NRITEtl. 1B0) 

180  FORMAT!/?*,’ INVALID  ENTRY,  PLEASE  REENTER’) 

NRITEtl,’ 121/))’) 

PAUSE 
60  TO  100 
ENDiF 

ELSEIF <ICHAR<P<D >  .Efl.  78) THEN 
NRITEtl, 200) 

200  F9RHATl//’X,’tCUR  RESPONSE  NAS  CORRECT.  72X. ’FURTHER  MCBIFICATIO 
■  NS  ARE  REQUIRED. ’-7) 

PAUSE 
60  TO  300 

ELSEIF <ICHAR<P<1 >)  .EQ.  69) THEN 
WRITE <1.150) 

NRITEtl, 220! 

220  FORMAT! /’ARTIFICAL  VARIABLES  HAVE  BEEN  ADDED,  YET’ /’THE  OBJECTIV 
•E  FUNCTION  HAS  NOT  BEEN’ /’MODIFIED  (B16  «)  TO  REFLECT  THIS.’; 'I 
PAUSE 
60  TO  300 
ELSE 

NRITEtl, 180) 

NRITEtl,’ (2t/))’) 

PAUSE 
60  TO  100 
ENDIF 

300  IF(tN6C+NEC)  ,Nt.  OjTHEN 
NRITEtl, 110>CHAR(12) 

NRITEfi,  < 9 ( / ) , ” THE  TABLEAU  MILL  BE  DISPLAYED  AND  /GU’7”HILL 
.  BE  ASKED  TO  IDENTIFY  THOSE” /’’VARIABLES  NHICH  THE  BI6  M  METHOD  I 
.S  TO” / ” BE  APPLIED.”///)’) 

PAUSE 

IFLA6<3)*1 

IFLA3(9)*0 

0PEN<2,FIL£*’C0NS0LE:’) 

NRITE<1,UC)CHAR<12) 

CALL  TDISPL 

310  NR1TE(1,110)CHAR<12) 

NRITEtl, 320) 

320  FORMAT (IX, ’NHICH  VARIABLES  REQUIRE  THE  USE  GF  THE' /MX.  ’BIB  M  HE 
.THCD779X.’ (ENTER  SUBSCRIPT  VALUES)’,/) 
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NRITEd,'i9X, "FIRST  VARIABLE?  ”,*>’) 

REM><5,M2A1>MP<1).PI2) 

CALL  CHECX2(P,2,VT,INVAL,INEM) 

IFdNVAL  .Efi.  DTHEM 
tifilTEf  1,190) 

PAUSE 
SO  TO  310 
ENB1F 

IFUNEN  .EE.  KFA)  THEM 
NRITEd,340)KFA 

3A0  FORMAT  l//?)l.’vOl)R  RESPONSE  BAS  CORRECT. ’/ll.  12,’  IS  THE  FIRST 
.  ARTIFICAL  VARIABLE  AND* /5X,’ REQUIRES  THE  USE  OF  THE  BIB  II.’) 

ELSE 

BR1TE 11,340) KFA 

340  FORMAT «',74X. ’YOUR  RESPONSE  MS  INCORRECT. ’/IX, ’THE  CORRECT  RES 
.P3NSE  NAS  VARIABLE  *,!2/’THIS  IS  THE  FIRST  ARTIFICAL  VARIABLE  AND’ 
. '2X, ’REQUIRES  THE  USE  OF  THE  BIB  M  METHOD.’! 

ENBIF 

PAUSE 

380  NRiTE(l,110)CHARI12) 

HRITE(1,M3X. ’’VARIABLES  ”,I2,•,  THRU  XI?)  REQUIRE  THE”/13X,” 
.618  M  METHOD”/)’ iKFA 

NRITE(1,’(9X,”LAST  VARIABLE?  ”,«)’> 

REA3(5.’(2A1!’)P(1),P(2) 

CALL  CHECK2  i P .  2,  VT ,  i NVAL ,  3NEN ) 

IF'IHVAL  ,EQ,  1 ) THEN 
NRITEd,  ISO) 

PAUSE 
80  TO  380 
END  IF 

iFdNEN  .ED,  VT) THEM 
NRITEd,400)VT 

100  FORMAT 1//7X, 'YOUR  RESPONSE  NAS  CORRECT. ’ /i X, ’ THE  LAST  ARTIFICI 

.AL  VARIABLE  33  I’, 12,’  AH0’/2X,’IS  THE  LAST  TO  REQUIRE  THE  USE  OF 
.  THE’ /MX, 'BIS  M  METHOD.') 

PAUSE 

ELSE 

NR1TEI1,*20W 

420  F6RMAT(//6X,’YGL!R  RESPONSE  NAS  INCORRECT. ’ /IX,  ’ THE  LAST  ARTIFI 
■C1AI  VARIABLE  IS  B’,12.’  AND’/iX,’IS  THE  LAST  TO  REQUIRE  THE  USE  0 
.F  THE’/14X.’  BIS  M  METHOD.’) 

PAUSE 

ENBIC 

DO  450  JSKFA,VT 
C!J)*-3M 
450  CONTINUE 

4R!TEd.m>CHARd2) 

NRITEil.’  dO(/).U.”THE  TABLEAU  NILL  BE  DISPLAYED,  THEN  Y0U”/2 
. X . ’ ' HILL  BE  ASKED  IF  IT  IS  IN  THE  PROPER” /6X,” FORM  FDR  THE  INITI 
.AL  PIVOT.”'/)” 

PAUSE 

C  FLASS  ALLON  TABLEAU  HUH  BASIC  VARIABLES  ANNOTATED  TO  BE 
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C  DISPLAYED 

IFLA6(5)*1 
IFLA6(?>«0 

OPEN  <2. F 5L£a’ CONSOLE  i  ’  I 
«RITt(l,110)CHAR<l2) 

CALL  TDISPL 

480  WRIT£ilf  110)CHARU2) 

NRITE(1,’<1*,”IS  THE  TABLEAU  IN  THE  PROPER  FORM  FOR” /I0)!,” THE 
.  INITIAL  PIVOT?  ”,*)’) 

READI5,’ lAU’.'PU) 

IFUCHARiPtl) )  ,E8.  78) THEN 
HRITEI1,’  (//7X,”Y0UR  RESPONSE  NAS  CORRECT”)’) 

NR ITEt 1.500) 

500  FORMIC  THERE  IS  NO  INITIAL  BASIC  SOLUTIONS  SINCE’/’THE  0BJECT1 
.VE  FUNCTION  COEFFICIENTS  OF'/’THE  ARTIFICAL  VARIABLES  ARE  HOT  ZERO 

PAUSE 

ELSEIFdCHARiPd))  .EO.  S1?) THEN 
NRITEU,’ i//6I,”v0UR  RESPONSE  NAS  INCORRECT.”'’) 

HRITEd.500) 

PAUSE 

EHDIF 

ENOIF 

RETURN 

END 
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C  I  I  I  *  t  I  i  I  »  I  *  «  I  *  M  »  »  t  »  I  I  I  »  I  »  I  It  I  »  M  >  I 

C  NODULE  2  UNIT22  t 

C  * 

C  SUBROUTINE  CNNDU  t 

C  USE:  DISPLAYS  THE  CONSTRAINTS  AND  A  MENU  OF  OPTIONS  WHICH  NAY  BE  t 

C  APPLIED  TO  CONSTRAINTS  TO  PREPARE  THE  CONSTRAINT  FOR  THE  I 

C  SIMPLEX  ALSOS1THN  (ADD  VARIABLES.  MULTIPLY  BY  -I).  SOLICITS  I 

C  USER  INPUT  AND  PRESENTS  INHEDIATE  FEEDBACK.  IF  INCORRECT  I 

C  RESPONSE  GIVEN,  BRIEF  INSTRUCTIONAL  CGNNENTS  ARE  DISPLAYED.  I 

C  CONSTRAINT  IS  MODIFIED  CORRECTLY  REGARDLESS  OF  USER  INFUT.  I 

C  CONSTRAINTS  WITH  NE6ATIVE  PHS’S  ARE  MULTIPLIED  BY  -I.  I 

C  CALLED  BY:  PROSRAN  EDUC  t 

C  CALLS  :  SUBROUTINE  CHECK2(P,N,H.INVAL,INEW)  I 

C  SUBROUTINE  TDISPL  » 

C  VARIABLES:  » 

C  USED:  CNU) , IFLA6I5) , INEH, INVAL,* . V.VN(I)  t 

C  MODIFIED:  A(»,l;,IFLAB(3),IFLAS(?),INEQi»l,N6C.NLC,PINE8m,  t 

C  Pft),S,T,VT,XBU)  t 

C  »  I  I  »  I  t  I  »  I  »  I  t  »  I  I  I  t  I  I  »  I  I  I  I  I  »  I  X  I  I  *  II  »  » 

SUBROUTINE  CNNDU 

CHARACTER  VNJ6,CNIi,PNt20,NMt!,FNIlO,PINEStl,P»i,QBJN*10 
1NTE6ER  ARTV, BASIC, PK,PKS, PR, PRS, OPTS, V,VT,C3,PES,0IU,DUAl,3UTP, 
.TIE.FNT.T.S 

C0Mi10N/E!/A(20,60) ,  ARTV'20)  ,C(AO*  .2,  INEB(20» ,  IFLAGUOi  ,CE(ZO> 

. ,NEC,NSC,NLC, IA, INOEXE, INDEKS, INDEXL, XBI20) 
C0NN0N/E2/PASIC,K,KFA,KFS,KFSA,KFSU.3PTS,PK,PKS,PR,PRS,V,VT.HXKN 
T.OMNON/E3/MOC.PES,  Oil;,  DUAL,  OUTP,  ITAB.IBTAB,  IFTAB.BM,  T1E.FMT 
C0HN0N/E4.'VN(rO),CN(2O>.PN,NN.FN,PINE9<2O),PUO/,QBJN 
C  FLAS  ALLOWS  ONLY  CONSTRAINTS  TO  BE  DISPLAYED 
IFLAG(?)=1 

OPEN ( 2 , F I LE= ’ CONSOLE : ’ ! 

NRITEd,  I10)CHAR<12) 

!10  FORMAT (A) 

WFITEU,’  (6X,  "CONSTRAINT  MODIFICATION' J , 3*/) THE  CONSTRAINTS,  A 
.a  ENTERED,  MILL  BE”/’ ’DISPLAYED  NEXT.  A^TER  THE  DISPLAY,  YOU’’/ 
.’’HILL  BE  SHOWN  EACH  CF  THE  CONSTRAINTS’’)’* 

HRITE'l, ’(’’INDIVIDUALLY  AND  ASKED  TO  SELECT  THE’ ’ /’’OPTION  WHICH 
.  TRANSFORMS  THE  CONSTRAINT’ ’/’’INTO  THE  PROPER  SIMPLEX  ALGORITHM  F 
.QRH.”,7(/))’> 

PAUSE 

WRITE  *1,1 10*  CHAR  < 12) 

C  SET  VARIABLES  IN  FORN  APPROPRIATE  FOR  TDISPL  SUBROUTINE 
VT-V 

C  FLAG  INSURES  SCREEN  IS  CLEARED  AFTER  EACH  80  COLUMN  DISPLAY 
IFLA6I3)»1 
CALL  TDISPL 
WRITE ( 1 , 1 10) CHARt 12) 

WRITE 1 1,’ ("EACH  CONSTRAINT  WILL  BE  SEPARATELY” /’’DISPLAYED,  THEN 
.  THE  FOLLOWING  OPTIONS’ ’  '"WILL  3E  DISPLAYED  FOR  EACH  CONSTRAINT. 

.”)’* 

WRITE  1 1,’ -(’’YOU  WILL  SELECT  THE  OPTION  WHICH  WILL",  "FLACE  THE  C 
.QNSTFAINT  IN  THE  PROPER" /’’SIMPLEX  ALGORITHM  FORM."  ? ’ » 
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WRITE ; 1 , 150) 

150  F0RHt»T < ’  1 «  ADD  SLACK  VARIABLE  0MLY.’,'/’2.  SUBTRACT  SURPLUS  VARIABL 

.E,  ADDV3X, ’ARUF1CAL  VARiABLE.’//’!.  ADD  ARTJFICAL  VARIABLE  ONLY. 

.’) 

WRITE ; 1 , 160) 

160  FCRHAT(/’4.  MULTIPLY  BY  -1,  SUBTRACT  SURPLUS’ /3X,’ VARIABLE,  ADD  AR 
.TIFICAL  VARIABLE. ’//’ 5.  MULTIPLY  BY  -l,  ADD  SLACK  VARIABLE.’//’ 6. 

.  MULTIPLY  BY  -1.  ADD  ARTIFICAL’ /3X, ’ VARIABLE. ’ ) 

PAUSE 

«RITEU,110)CHAR<12) 

T*(V'5>«1 
DO  900  1*1, K 
DO  400  N*1.T 
IF (IFLA6i5)  .EB.  DTHEN 
NRlTEd,  ’<131, 1)') 

DO  270  J=<Nl5)-4.NI5 
IF <J  .ST.  V) THEN 
SO  TO  270 
ENDIF 

NR!TE!1,26C)VN!J) 

260  FORMAT  (6(,A6,  U,4) 

270  CONTINUE 

MRITEll.’I”  ”)') 

END1F 

WRITE ( 1 . ’ % 13X. ♦• ’ > 

DC  290  J*(NI5)-4,MI5 
IF(J  .ET.  VlTHEN 
50  TC  290 
ENDIF 

NRITEt! .2801 J 

220  FOSMATIoX.  ’X<M2.’)'.2X.») 

29C  CONTINUE 

IF  IT  .EB.  I  .OR.  H  .EQ,  DTHEN 
WRITE « 1 , 300) 

300  FORMATS,’ RMS’) 

ELSE 

MRITEU.M”  ”)’) 

END  IF 

WRITE! 1,340) I 

340  FQRMATCCNI’  „12,4) 

IFiIFLAB(5!  ,E8.  DTHEM 
MRITE(I,350>CN(i) 

350  FORMAT  U?. Ao.  IX,  I) 

ELSE 

HR!TE'.1,’!BX,»:’> 

cNDIr 

DC  370  J*(NI5)-4.N»5 
IF  \ J  ,6T.  V) THEN 
50  TO  370 
ENDIF 

IF!FMT  .EB.  Oi THEN 
WRITE!!,’ ;1X,1PE12.5,4)’)A(I,J) 


J70 


400 

410 


420 


430 


C 


C 


450 


440 


ELSE 

waTEn,Mn,Fi2.5,»nA<;i,i) 

ENDIF 

CONTINUE 

IF (T  .Efi.  1  .OR.  N  .EG.  T) THEN 
IFIFNT  .EG.  0) THEN 

NRiTEd,’  <1X,A1. 1PE11. 5, // > '  )PIMEC< ! ) ,  XB  <  I ) 

ELSE 

NRITE(l,’(lX,Al,F12.5,//r>PINEQ(I).XB(I) 

END  IF 
ELSE 

NRITEU,’ {”  ”)’) 

ENCIF 

CONTINUE 

PAUSE 

NR1TE(1,H0)CHAR(12) 

WRITE ( 1, * (13X, ’’CONSTRAINT  #’ ’ ,12,//)’ H 
WRITE! !, 150) 

WRITE  < 1 , liOi 
WRITE  ■'  1,420) 

FORMAT </i3X, ’WHICH  OPTION?  ’,»> 

READ(5,’(Ai)’)P'l) 

CALL  CHECK2(P.1,6,INVAL,1NEN) 

IFUNVAL  .EG.  DTHEN 
WRITE! 1 . 430> 

F0RHAT(/5X,’ INVALID  ENTRY,  PLEASE  REENTER’) 

PAUSE 
60  TO  410 
ENDIF 

CHECKS  FOR  NE3AT1VE  RHS 
1F(X3(I)  .ST.  0) THEN 
IF(INEB(I)  .EG.  OTHER 

USER  SELECTION  CHECKED  AND  FEEDBACK  PROVIDED 
IF! INEN  .EG.  DTHEN 
NRITEI 1,430) INEN 

F0RHAT(/10X,’ OPTION  I’, II,’  IS  CORRECT.’/) 

PAUSE 
SO  TO  800 
ELSE 
S=l 

NR1TF (1,460) INEN,  S 

F0RHAT1/9X, 'OPTION  »’,I1,’  IS  INCORRECT’ //4X, ’THE  PKOPER  R 
.ESPQNSE  NAS  OPTION  #’,11.) 

PAUSE 
SG  TO  800 
ENDIF 

ELSElF-JNEOtD  .EG.  DTHEN 
IF (INEN  ,EG.  2) THEN 
WRITE*.  1,450!  INEN 
PAUSE 
SC  TO  800 
ELSE 
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S*2 

WRITE  < 1 , 460) > NEW, 5 
PAUSE 
S3  TO  800 
EXOIF 

ELSEIFUNEN  .EQ.  3) THEN 
WRITE  (1,450) 1NEN 
PAUSE 
SO  TO  8G0 
ELSE 
S*3 

WRITE ( 1 , 4iO) 1NEW, S 
PAUSE 
60  TQ  300 
END  IF 
ELSE 

IF(INEQil)  .EQ.  OTHER 
IFdNEN  .EQ.  41  THEN 
UNITE  (1,450)  HEN 
PAUSE 
ELSE 
S=4 

UNITE (1, 460) INEN,S 
PAUSE 
ENSIF 

ELSEIFdNEQd)  .EG.  DTHEN 
IFdNEN  .EQ.  5) THEN 
NRITE(1,450)INE# 

PAUSE 

ELSE 

S*5 

WRITE  11, 460) INEH,S 
PAUSE 
ENBIF 

ELSE IFdNEN  .E9.  6)THE» 

WRITE ( 1 . 450) INEW 
PAUSE 
ELSE 
S*6 

NRITEU,460)INEN,S 
PAUSE 
ENDiF 
END  IF 

C  CONSTRAINTS  WITH  NESATIVE  RHS  MULTIPLIED  BY  -1 

XB(D— *8II> 

DO  300  W.V 
A!I,J)*-A(I,J) 

500  CONTINUE 

C  COUNT  OF  INEQUALITIES  BY  TYPE  CORRECTED  DUE  TO  fl'JLT  BY  -1 
1FUNEQU)  .EQ.  O'THEN 
NLC*NLC-1 
NGC»M6Cd 
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INEQi!)*l 

PlHEfi'l)*’)' 

ELSEIF < IN€S< I )  .£9.  DTHEN 
N6C*NGC-1 
NLC=«LC+1 
INEBfI)*9 

EMIF 

800  WUTE(l,110)CHfiR(12) 

900  CONTINUE 
RETURN 
END 
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C  M  I  »  I  *  I  I  t  I  I  I  I  »  I  *  »  t  I  I  t  I  I  »  »  »  I  »  t  *  I  t  t  I 

C  MODULE  I  UNI723 

C  UNIT  (USES*.  UN  1 126  AND  UH1T27 

C 

C  SUBROUTINE  OPT 

C  USE:  DETERMINES  THE  PIVOT  ELEMENT.  OPTIMALITY,  UN3GUNDEDNE3S,  AND 
C  FEASIBILITY  OF  THE  CURRENT  TABLEAU.  DEPENDENT  OF  THE 

C  INTERACTION  OPTIONS  SELECTED  BY  USER,  THE  USER  RILL  BE  ASKED  I 

C  SUESTIONS  ON  THE  ABOVE  CONDITIONS  AND  PRESENTED  FEEDBACK 
C  ACCORDINGLY.  ALSO  DEPENDENT  UPON  OPTION  SELECTION,  THE  PIVOT  : 
C  ELEMENT  HAY  BE  THAT  SELECTED  BY  THE  AL30RITHH  OR  AS  INPUT  BY 

C  USER,  THIS  ROUTINE  ALSO  DISPLAYS  A  TABLEAU  HEADER  ON  THE 

C  SELECTED  OUTPUT  DEVICE  FOR  DESIGNATED  TABLEAUS.  USER  HAY 
l  SELECT  PIVOT  ELEMENT  TO  CAUSE  SYSTEM  OVERFLOW  ERROR,  BUT  USER  i 
C  IS  GIVEN  OPTION  TO  ABORT  PIVOT  PRIOR  TO  OVERFLGN  ERROR. 

C  CALLED  BY:  PROGRAM  EDUC 

C  CALLS  :  SUBROUTINE  BASDJS 

C  SUBROUTINE  T CAL 

C  SUBROUTINE  TDISPL  : 

C  VARIABLES: 

C  USED:  AiM!.C(i),CB'l>,IFTAB,K.KFA.OiiJ,aoTP.VT,:;B'l) 

C  MODIFIED:  CO.F,SNEB,  If  LAST  i  ? .  if  LAG  (At ,  IFLA6(fc) ,  IFLAGI7'. ,  IFLA6(B) , 

C  IFLA6(?!,INC,INF2,NNU.0DB,0PTS,PK,PR,SPS,TIE 

c  t  t  t  t  t  t  I  (  t  t  «  I  M  t  *  «  :  t  f  >  t  t  I  I  t  I  I  <  I  T  I  t  t 
(USES  UCHECK2  IN  UNIT27.C0DE  OVERLAY 
(USES  LTCISPL  IN  UN1T26.C0BE  OVERLAY 
SUBROUTINE  OPT 

CHARACTER  C0I7,  INCH,0DBW,N*JW,F(1 

INTEGER  ARTV. BASIC, PK.PKS, PR, PR3, OPTS. V,VT,CB,PESfO!U, DUAL, fli/TP, 
.TIE.FHT 

CGMHiJN/El/A(20,60)  ,A?TV<29>  ,CI60t ,  2,  INEOdC),  IFLA5U0)  ,CB(20l 
.  .NEC,  NEC.NLC,  IA,  INDE.VE.  INDEDS,  INBEXL,  XB(20) 

[  DHMONVE2/BAS1C.K, KFA.KFS,  KFSA,KFFU,GPrS,PK,P!CS, PR, PRS.V.VT, HYMN 

COMMON, 'E3/H0D, PES.OIU, DUAL, OUTF. ITAO, IBTAB, IFTAB,BM. HE, FMT 

IFLA6(1)=0 

IFLAG\4)*0 

I FLAG (6) *0 

INF1=0 

QNEG*0.0 

C  CHECKS  FOR  INFEASIBiLITY 
DO  100  1=1, K 
IF  (YBUt  ,LT,  0.0) THEN 

C  FLAB  DENOTES  VARIABLE  AT  NEGATIVE  LEVEL 

IFIA6(1)*I 
ENDIF 

lF(CB(It  ,S£.  KFAiTHEN 

C  DETERMINES  IF  VAPI ABLE  IS  AN  ARTIFICIAL  VARIABLE 

IF(YG'I)  ,SE.  ,000!.' THEN 

FLAS  DENOTES  ARTIFICIAL  VARIABLE  AT  POSITIVE  LEVEL 
IMS 1=1 


100  CONTINUE 


C  FINDS  THE  LARGEST  NEGATIVE  ZIJl-CIJ) 

30  200  J*i,VT 
IF <C (-J J  .LT.  ONES) THEN 
TIE'O 
BNE6=C(JJ 
PK3J 

ELSEIF(C'J)  .Efi.  SNEGJTKEN 
C  TIE  EXISTS  FOR  ENTERING  BASIC  VARIABLE 

TIE=1 
ENDIF 
200  CONTINUE 

IF  (ONES  .ST.  -.0001  .AND.  IFLrtGU)  .EB.  OITHEN 
C  NO  NEGATIVE  Z(J)-C(J)  EXISTS  AND  RHS’S  ARE  POSITIVE 
SO  OPTIMAL 
QFTS*1 
ENtIF 

CO3’ CORRECT’ 

INC3’ INCORRECT’ 

GEB3’ OPTIMAL’ 

NN03’N0T  OPTIMAL’ 

210  IFOIU  .EB.  DTHEN 

C  USER  HAS  SELECTED  TO  IDENTIFY  OPTIMALITY 
WRITE ( 1 . 220>CHAR (12) 

220  FORMAT (A) 

WRI*E<lf510> 

Nfu'iSU,’  13X,”WAS  THE  PREVIOUS  TABLEAU  OPTIMAL?  ”,«») 

AEAD15, ’ (All ’ )F 
IrdCHAR(F)  .EB.  84> THEN 
C  USER  ELECTS  TO  REVIEW  TABLEAU 

CALL  TCAL 
SO  TO  210 

ELSEIF(JCHARIF)  .NE.  e9  .AMD.  ICHAR(F)  .NE.  7B>THEN 
NRITEI1.230) 

230  F0RMAT1/5X,’ INVALID  ENTRY,  PLEASE  REENTER’,//) 

SO  TO  210 
ENDIF 

C  USER  INRUT  CHECKED  FOR  CORRECTNESS  AND  FEEDBACK  PROVIDED 
IF  (OPTS  .EB.  DTHEN 
IFIICHAR(F)  .Efi.  89) THEN 

NRlTE'1.240iCQ,QDB 

240  FORMAT <//6X, ’YOUR  RESPONSE  NAS  :,A9/2X,’?HE  LAST  TABLEAU  NAS 

.  ’ . Ai5. //) 

ELSE 

WRITE (1, 240  INC, ODB 

NRITEd,” ("TO  BE  OPTIMAL,  ALL  C1J)  AND  RHS  VALUES” /’’MUST 
.  BE  ZERO  OR  POSITIVE.  THIS  IS” /’’CURRENTLY  TRUE,  THEREFORE  THE  T 
.ABLEAU  IS”/”OPTIMAL.”)’> 

ENDIF 
PAUSE 
SO  TO  300 
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r 
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ELSEIFIOPTS  .EG.  3 (THEN 
IF « ICHAR(F)  ,E6.  785THEN 
NRITEU,240)C0,NHU 
ELSE 

NRITEd,240>!NC,NNU 

HKITEd.M”TQ  BE  OPTIMAL.  ALL  C!J>  AND  RHS  VALUES” /"MUST 
,  BE  ZERO  OR  POSITIVE.  THIS  IS’ * /’’CURRENTLy  NOT  TRUE.  THEREFORE  T 
. HE’ TABLEAU  IS  NOT  OPTIMAL.”! ’( 

ENDIF 

PAUSE 

ENDIF 

ELSE 

C  ALGORITHM  TO  IDENTIFY  OPTIMAL  SOLUTION 
IF (OPTS  .EG.  1 ) THEN 

IF ( INF!  .EG.  0  .AND.  IFiASU)  ,E3.  OiTHEN 
NRITE(i.223)CHAft'12> 

NRITEa,’Ml(/»,2S,”THE  LAST  BASIC  SOLUTION  NAS  OPTIMAL.”, 
.6</> >') 

ELSEIFdNFl  .N£.  0) THEN 

NRITEd,’dQ</),2i(.”A  FEASIBLE  SOLUTION  DOES  NOT  EXIST."/! 
.1.  ”AN  ARTIFICAL  VARIABLE  IS  AT  A  POSITIVE” /?X, "LEVEL  IN  THE  SOL 
.UTIOM.  ”  ,6</) ) ’) 

ELSEIFdFLAS(l)  .NE.  OMEN 

NFiTEd,’ (10(/),2*,”THE  SOLUTION  IS  INFEASIBLE  SINCE  THE”/ 
.’’SASIC  VARIABLE  It”, 12,”!  IS  NEGATIVE.”  )’)C3dFLA6d>! 

ENDIF 
PAUSE 
ENDIF 
END  I? 

500  ODB*’ FEASIBLE’ 

NWJ«*  INFEASIBLE' 

510  FORMAT (41, ’TO  REVIEW  TABLEAU,  ENTER  T’,//» 

IF<0! U  .E3.  I) THEM 

C  USER  HAS  SELECTED  TO  IDENTIFY  INFEASIBLE  SOLUTIONS 
HR!TEd,220!CHARd2) 

WRITET 1.510) 

IF (OPTS  .EG,  1 ) THEN 

WRITE <I,’<1X,”IS  THE  OPTIMAL  SOLUTION  ALSO  FEASIBLE?” /1R,I) 
ELSE 

WRITE <  1. ’ <8X . ’ ’ IS  THE  SOLUTION  FEASIBLE?  ”,»)’) 

ENDIF 

READ'S.’ (A1)’)F 
IFdCHAR(F)  .EG.  84 (THEN 
C  USER  ELECTS  T0  REVIEW  TABLEAU 

CALL  TCAL 
SO  TO  500 

ELSEJF  'ICHAR(F)  .NE,  78  .AND.  ICHAR(F)  .NE.  8?) THEN 
NRITEd.230) 

PAUSE 
SO  TO  500 
ENDIF 
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C  USER  PROVIDED  FEEDBACK  ON  RESPONSE 

IF < INF I  .EB.  0  .AND.  IFLAG(l)  .EB.  0) THEN 
IF (ICHAR(F)  .EB.  89) THEN 
WRITE! 1,240>C0.0DB 
ELSE » F < 1CHAR <F )  .EB.  731THEN 
NRI7ET1.240*INC,0DB 

WRITE (1  f  J  < IX,  ’  ’ THE  CURRENT  TABLEAU  IS  FEASIBLE  SINCE”/2X,” 
•ALL  RHS  VALUES  ARE  POSITIVE  AND  ALSO” /4X.’  ANY  ARTIFICAL  VARIABLE 
.S  ARE  AT  A” /T4X, "ZERO  VALUE.”/.'!') 

ENSIF 

PAUSE 

ELSE 

IF'.ICKAR(F)  .EB.  78) THEN 
NRITEU.ZAOICO.NNU 
IF'JNF!  .NE.  0 ) THEN 
HRI TE  < 1 « 540) CB  < INF  1; 

540  FOSHAT </ ’ THE  SOLUTION  IS  INFEASIBLE  SINCE  THE’/’AATIfISl 

.AL  VARIABLE  X'\i2,’)  IS  AT  A’ /’POSITIVE  LEVEL.’) 

ELSE 

NRITE ! ! . 560) SB ( IFLA5; ! ! ) 

560  FGRHRT!  'THE  SOLUTION  IS  INFEASIBLE  SINCE  THE’/’BASIC  VA 

.R1ABLE  XC.I2,M  IS  AT  A  NEGATIVE' /'LEVEL. ’! 

END  IF 

ELSEIFUCHAR(F)  EB.  E?) THEN 
WRITE! I, 240) INC. NNU 
IF! INF  1  .NE.  0 ; THEN 
WRITE ( J .540) CE 4 INF1 ) 

ELSE 

WRITE! 1,560)C8(!FLA6<1)) 

ENDIF 
END  IF 
PAUSE 
ENCIF 
ENDIF 

iFiiOPTS  .EB.  1  .AND.  iNFl  ,NE.  O'  .OR.  (IFLABI1/  .NE.  0  .AND. 

.  6NE6  .ST.  -.0001) (THEN 

C  OPTIMAL  AND  INFEASIBLE  SOLUTIONS  NOT  CHECKED  FOR  UNBGUNDEBNESS 

SO  TO  840 
ENDIF 
ENDIF 

QDB-’ DEGENERATE’ 

NNUs’NOT  DEGENERATE’ 

C  SOLUTION  CHECKED  FOR  DE6ENERACY 
DO  620  I=t.K 

IFiXBU)  .GT.  -.0001  .AND.  <B(I)  ,LT.  ♦.OOODTMEN 
IFLA8!6)*1 
ENDIF 
620  CONTINUE 

IFiOIU  .EB.  1 ) THEN 

C  USER  HAS  ELECTED  TO  IDENTIFY  DEGENERATE  SOLUTIONS 
630  WRITE! 1 . 220) CHAR (12) 

NPITEU.5T0) 
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NRITEU, M”HA3  THE  PREVIOUS  SOLUTION  DEGENERATE?  ”,*>’) 
REA0(5,’<A1)’)F 
IFUCHAR(F)  .EQ.  64) THEN 
C  USER  ELECTS  TO  REVIEN  TABLEAU 

CALL  TCAL 
80  TO  430 

ELSEIFUCHAR'.Fi  .HE.  78  .AND.  ICHAR(F)  ,NE.  89) THEN 
WlTEtl, 230) 

PAUSE 
SO  TO  430 
ENDIF 

C  USER  RESPONSE  CHECKED  FOR  CORRECTNESS  AND  FEEDBACK  PROVIDED 
IF(lFLAGio)  .EB.  05THEN 
IFUCHAR(F)  .EQ.  76) THEN 
NRITEU, 240)C0,NNU 
ELSEIFdCHAR(F)  .Ed.  9?) THEN 
NR1TEU,24G)INC,NNU 

NRITEU.’ (l.K,”THE  CURRENT  TABLEAU  IS  HOT  DEGENERATE” /'’SIN 
.CE  ALL  BASIC  VALUES  ARE  AT  A  NON-ZERO’  'I  111,'’  LEVEL.  ”/')’) 

ENDIF 

PAUSE 

ELSE 

iFdCHAR(F)  .EQ.  8? /THEN 
NRITEU, 240)00.006 
NRITEU,  S5C)CBUFLA6<6>) 

450  F0RHAT(/2K, 'SASIC  VARIABLE  I! ’,12.’)  IS  ZERO  IN  THIS’/2I.’SQ 

.LUTION.’) 

ELSEIFdCHAR(F)  .£9.  76) THEN 
NRITEU,  240UNC,0DB 
NF.ITEU,650)CB(IFLA8<6)) 

ENDIF 

PAUSE 

ENDIF 

ENDIF 

IF (OPTS  .EQ.  OiTKEN 

C  NGN-OPTIMAL  SOLUTION-FIVDT  RON  DETERMINED 
S?R=10.E8 
DO  700  1*1, K 

iF(Ad.PK)  ,LE.  .0001) THEN 
SO  TO  7C0 

ELSEIFU*Bd!/AU,PK))  .BE.  SPR) THEN 
GO  TO  700 
ELSE 

SPR«UBU)/AU,PK)> 

PR*1 

ENDIF 

700  CONTINUE 

I F < SPR  .GE.  10,E4)THEN 

C  RATIO  IS  INFINITE,  THEREFORE  SOLUTION  UNBOUNDED 

IFLA6I7)*! 

ENDIF 

GDP*’ BOUNDED’ 
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MU- ’UNBOUNDED’ 

IFIGIU  .EQ.  liTHEN 

C  USER  HAS  ELECTED  TO  IDENTIFY  UNBOUNDEDNESS 

710  WRITE ( 1 , 220) CHAR  < il ) 

MITEd.SlO) 

fIRITETl. ' (2X,* ’BAS  THE  PREVIOUS  SOLUTION  UNBOUNDED” /IX, ’’BASE 
.S  UPON  THE  NE)’  PIVOT  [GLIM*  (R0N;”/”3EJNG  THE  COLINN  (RON)  WITH 
.  THE  LARGEST”, '4X, ’ ’NEGATIVE  Z(J)-CfJ)  (B(J)i  VALUE'- 
read(3,ma:)’)F 
IF(ICHAR(F!  .Efi.  84! THEN 
C  USER  ELECTS  TO  REVIEW  TABLEAU 

CALL  TCAL 
GO  TO  710 

ELSEIF(iCHARiF)  .?!€.  78  .AND.  ICHAR(F)  .NE,  3?) THEN 
W.ITEU.230) 

PAUSE 
SO  TO  710 
ENOIF 

C  USER  INPUT  CHECKED  FOR  CORRECTNESS  AND  FEEDBACK  PROVIDED 

IF ( IFLA6 i 7)  .EC.  1 ) THEN 
IFUCHARiFi  .Efl.  87) THEN 
NRITE (1,240) CO, NNU 
WRITE -l . 720) PK 

720  FORMAT' ' 3)1, ’COLUHN  ’,12,'  COEFFICIENTS  ARE  ZERO  CR’ /IX. 'NE 

.GATIVE,  OR  THE  RATIO  OF  K3(I!/AU,Ji’/10I,’lS  EXTREMELY  LAREE.’) 
ELSEIF<ICHAR(F)  .EC.  78) THEN 
NRITE (1,240! INC, NNU 
WRITE • 1 , 72C  >  PK 
ENDIF 
PAUSE 
GO  10  840 
ELSE 

IF(ICHAR(r)  .EC.  78! THEN 
NRITE i 1,2401  CO, ODS 
ELSEIr (ICHAR(Fi  .EB.  8?) THEN 
NRI TE( 1,240! INC, 0D8 

NRITEM,’ (2-V’THE  CURRENT  TABLEAU  IS  BOUNDED  SINCE”/!!, 
.’’ALL  THE  All, 3)  VALUES  IN  COLUMN  ”,I2,”  ARE” /9>.  ’  "NOT  NE6ATIVE 
.  OR  ZERG.”//)’)?K 
ENDIF 
PAUSE 
ENOIF 
ELSE 

IF(!FLA6(7!  .EQ.  DTHEN 
NRITE(1,220»CHAR'12) 

NRITE(1,’(I1(/),1)1,”THE  LAST  BASIC  SOLUTION  NAS  UNSOUNDED. 

.  ”,6'/)!:! 

PAUSE 
60  TO  840 
ENOIF 
ENDIF 
ENOIF 
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C  CHECK  FOR  MULTIPLE  OPTIMAL  SOLUTIONS 
DO  740  J*1,VT 
IFLA6(8)*0 
DO  750  1*1,  K 
IFICBIIi  .E8.  o', THEN 
IFLA6I6)*1 
END IF  • 

750  CONTINUE 

IFUFLA6I8)  .EB.  01  THEN 

IF1CIJ)  .LT.  .0001  .AND.  CIJ)  .81.  -.00011THEN 
IFLA6141-1 
ENDIF 
EWDIF 
760  CONTINUE 

IF <OFTS  .EB.  11  THEN 
IF  (Oil!  .EB.  1 )  THEN 

C  USER  HAS  ELECTED  TO  IDENTIFY  MULTIPLE  OPTIMAL  SOLUTIONS 

770  NRITE I 1(220) CHAR (12) 

NRITE<1,510> 

bRlTE(l,’UX,”ARE  THERE  KULTIPLE  OPTIMAL  SOLUTIONS?  ”,*>’) 
REA015/  IA1)’)F 
IFtICHARIF)  .£0.  84 (THEN 
C  USER  ELECTS  TO  REVIEW  TABLEAU 

CALL  TCAL 
60  TO  770 

ELSE1F ( iCHAP <F>  .NE.  78  .AND.  ICHARiF)  .NE.  8?) THEN 
NRITE' 1,230) 
rftUSE 
sa  TO  770 
ENDIF 

C  USER  RESPONSE  CHECKED  FOR  CORRECTNESS  AND  FEEDBACK  PROVIDED 

IFIIFLASI4)  .EB.  1 ) THEM 
IF < ICHARIF)  .£3.  8?) THEN 
NRITE 11, 780! CO 

780  FORMAT I /VoX,' YOUR  RESPONSE  NAS  \A9/6X, ’THERE  ARE  MULTIPLE 

.  SOLUTIONS.’) 

NRITE 11,800) 

800  FORHATi/’A  NON-BASIC  VARIABLE  HAS  A  ZERO V COEFFICIENT  IN 

.THE  OBJECTIVE  FUNCTION  OF’ I 'THE  OPTIMAL  SOLUTION.’) 

ELSEIFIICNARIF)  .£fi.  78) THEN 
WRITE! 1, 730) INC 
WRITE  <  1 , 8*<0> 

EHSIF 

PAUSE 

ELSE 

IF  I ICHARIF)  .EB.  78! THEN 
WRITE ( 1 y  B20) CO 

820  FORMAT I//6X,’ YOUR  RESPONSE  NAS  ’.A9/4X, ’THERE  ARE  NO  HULTI 

.PLE  SOLUTIONS.’; 

ELSEIFIICNARIF!  .EO.  89 > THEN 
NRITE 1 1.820) INC 

NRITE!!, ’(//IX, ’’THIS  IS  SINCE  ALL  NON-BASIC  VARIABLES”/! 
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. X . ’ ' HAVE  A  VALUE  OF  OTHER  THAN  ZERO  IX  THE'1 /’’OBJECTIVE  FUNCTION 
.  ROW.  IF  A  ZERO  VALUE”  M,”NAS  PRESENT  FOR  A  NOH-BASIC  VARIABLE. 
.”)’) 

NRITEil. MIX, "INCREASING  THE  VALUE  OF  THIS  VARIABLE” /5X, 
.’’HQULD  NOT  CHANSE  THE  Z  VALUE.”)’) 

ENDIF 

PAUSE 

ENDIF 

ENDIF 

ENDIF 

IF (OPTS  .EQ.  0)TH£N 
SO  TO  880 
ENDIF 

340  1FUFTAB  .EQ.  2)  THEN 

C  FINAL  TABLEAU  IS  NOT  TO  3E  DISFLAYED 
RETURN 
ELSE 

<#ITE( 1.220) CHAR (12) 

IFiOUTP  .EQ.  1)THEN 
OPEN  1 2, F ILE* ’ CONSOLE :  ’ ) 

ELSE 

OPEN  <  2, F ILE* ’ FR1MTER j ’ ) 

ENDIF 

C  TABLEAU  HEADER  PRINTED 

NRITE'.2,M»0X, "BASIC  SOLUTION  *”,  12) ’) BASIC 
NRITEI2.MI0X, "FINAL  TABLEAU  -  ”,»>’> 

IFMNF1  .HE.  0  .OR.  IFLASU)  .NE.  OITHEN 
NRITE  (2, ’(’’INFEASIBLE”/)’) 

ELSEIF < IFLA647)  .Efi.  DTHEN 
NRITE'2,  M”  UNBOUNDED’  ’  /  )  ’ ) 

ELSE 

NRITE  (2,  ’  ( "OPTIKAL”  /) ' ) 

ENDIF 
IFLAS(?)=2 
CALL  TDISPL 
ENDIF 

BSO  CALL  BASDIS 
RETURN 
END 
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c  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 » 1 1  tt  1 1  •  1 1 1  r 

C  MODULE  2  UHIT23 
r 

C  SUBROUTINE  TCAL 

C  USE:  OPENS  OUTPUT  TO  CONSOLE  TO  DISPLAY  CURRENT  TABLEAU  ON  SCREEN. 
C  CALLED  BY:  SUBROUTINE  OPT 
C  CALLS  :  SUBROUTINE  TDISPL 
C  VARIABLES; 

C  USED:  NONE 
C  MODIFIED:  IFLA6<3) . IFLA6T9) 

cmntmtmmmmimmimt 

SUBROUTINE  TCAL 
INTESER  AR1V.CB 

C3NH0N/E1/AI20.A0) .ARTV(IO) .C'40) ,2,INE3(20), IFLAG(IO) ,CB<20) 

. , NEC. NSC. NLC. IA, INDEX-, IHDtIS, IHBEYL, XB 120) 

IFLA6I9W 

IFLA6(3)S1 

OPEN  <  2 . F I LES ’ CONSOLE ; ’ ) 

NSITE‘2,' IA)’ )CHAR(12) 

CALL  TDISPL 

RETURN 

END 
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c  I  I  I  t  t  t  I  t  t  I  t  t  t  I  I  t  I  I  (  i  t  I  I  I  I  t  I  )  t  I  I  t  I  I  t 
C  MODULE  2  UNIT  24  t 

C  UNIT  tilSES:  UNIT2S  AND  UN1T27  I 

C  I 

C  SUBROUTINE  PIVOT  » 

C  USE;  DEPENDENT  UPON  USER  OPTION  SELECTION,  EITHER  SOLICITS  INPUT  » 

C  OF  USER  SELECTED  PIVOT  COLUMN  AND  RON  OR  PASSES  CONTROL  TO  I 

C  SUBROUTINE  WORK  USINO  ALGORITHM  SELECTED  PIVOT  ELENENT.  t 

C  PROVIDES  FEEDBACK,  IF  OPTION  SELECTED,  AND  ALERTS  USER  OF  t 

2  PIVOT  ELENEN1  SELECTION  WITH  VALUE  OF  APPROXIMATELY  ZERO.  I 

C  WITH  THE  DUAL  PIVOT  OPTION,  USER  MUST  SELECT  PIVOT  ELEMENTS.  » 

C  ROUTINE  HILL  NOT  ALLOW  FURTHER  PIVOTS  UPON  REACHING  BOTH  ( 

C  PRIMAL  AND  DUAL  OPTIMALITY  CONDITIONS.  I 

C  CALLED  BY:  PSQSRAM  E0UC  t 

C  CALLS  :  SUBROUTINE  CHElK2(P,N,K,:NVAL,!HEM)  I 

C  SUBROUTINE  OVER (RES)  I 

C  SUBROUTINE  HORK  I 

C  VARIABLES:  I 

C  USED:  A<MI>CU), DUAL, FNT,!NEN,INVAL.K,PES, RES, VT,IBU>  » 

C  MODIFIED:  IFLA6 (4) . IFLA6 <6> , IFLAS ' 10) ,L, M.P( *) ,PK.P<S,PR.PRS,  I 

C  RATIO, SPR, TIE  I 

C  I  I  «  I  I  *  »  I  I  l  I  I  t  »  I  I  »  »  I  *  I  I  I  »  I  «  I  t  $  »  »  »  «  I  I 

•USES  UCHECK2  IN  UNIT27.C0CE  OVERLAY 
•USES  UHEACER  IN  UNIT25.C0DE  OVERLAY 
SUBROUTINE  PIVUT 

.  CHARACTER  VN»S.CN«4,PNI20,K«J,FNI10,PINEOI1,P»1,OBJMIO 

INTEGER  ARTV, BASIC, PK,PKS,PR,PRS, OPTS, V,VT,CB,PES,3IU. DUAL. OUTP, 

. TIE. FMT,RES, ASK 

CGRMON/El/ A(2O,60i , ARTV(20) ,C(60> , Z. INEO(ZO) . IFLAG< 10) ,03(20) 

. .NEC,N6C,NLC, IA, INOEXE. INDEX!., INDEXL, 16(20) 
C0H«QH/E2/BASlC,K,KFA,KFS.KFSA,KFSU.0PT5.PK,PKS,PRfPRS.V.VT.NlHN 
COMHON/E3/MOD, PES, CI'J, DUAL, OUTP,  ITAB, IBTAB, IFTAE.BN. TIE.FMT 
C0NN0N/E4/VN(20),CN:20),PN,IW,FN,PINE0(20».P(I0),0BJN 
L*1 
M*1 

C  VARIABLES  IPP,IPK  CONTAIN  ALGORITHM  SELECTED  FIVOT  ELENENT 
IFLA6i4)*PK 
IFLA8(4)*PR 

100  NRirE(:,i;0)CHAR(12) 

110  FORMAT (A) 

PK=IFLA6(4) 

PR=IFLA6<6) 

IF(PES  .£9.  3) THEN 

C  USER  HAS  ELECTED  AlSORITWI  TO  SELECT  PIVOT  ELENENT 
CALL  HCRK 
RETURN 
ENDIF 

IF 4L  .ED.  0  .AND.  N  -Efi.  0) THEN 
C  NO  NE3ATIVE  RHS  OR  KJi-CfJI  ELEMENTS  EXIST 
NRITE(1,110)CHAR(12) 

NRITE(1.,(7;/),”Y0J  ARE  UNABLE  TO  PROPERLY  PERFORM  DUALi’/”OR 
.  PRIMAL  PIVOTS  CH  THE  CURRENT  TABLEAU. ”//” TO  OVERRIDE.  ENTER  DIU 
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.AL  OR  P) R1RAL  TO  CONTINUE.  ANY  OTHER  ENTRY  HILL  TERMINATE”/ 

. ’ ’ PROBLEM. 1  ’ i718)l, ’  OPTION 
READ<5, ’(AD’tPU) 

HRlTE(l,liO)CHAR<I2) 

IFdCHAR(PU)  .EB.  80) THEN 
63  TO  tSS 

SLScIF s ICHAR (P f I) )  .EB.  68) THEN 
30  TO  1025 
ELSE 

C  FLAG  DENOTES  FURTHER  PIVOTS  NOT  POSSIBLE 
IFLA6<10)*5 
RETURN 
END  IF 
ENDIF 

IF (DUAL  .EB.  2) THEN 

C  USER  HAS  ELECTED  TO  ALLQN  DUAL  PIVOTS 

«ITE<1, ’<**(/), 3X,,,HMCH  METHOD  DC  YOU  NISH  TO  USE  IN”/9if,”PE 
.RFORRING  THIS  PIVOT?'  ’//SX,” I.  PRIMAL”//5X.”2.  DUAL” 

.//5X,”3.  HO  FURTHER  PIVOTS  DESIRED”//)’) 

WRITE '  1 . 240) 

READ(5,'(A1)MP«1) 

CALL  CHECK2!P,1,3.INVAL,!NEV> 

IFCNVAL  .EB.  1 ) THEN 
NRITE(t,l30) 

130  FORBATi/SX.’ INVALID  ENTRY,  PLEASE  REENTER’) 

50  TO  100 
ENDIF 

IF(INEH  .EB.  2) THEN 

C  USER  HAS  ELECTED  TO  ATTEBPT  DUAL  PIVOT 

SC  TO  1000 

EI.SEIF ( INEW  .EB.  3) THEN 
!FLA6(10»=5 
RETURN 
ENDIF 
ENDIF 
l.*0 

00  140  3*5, VT 
!F(C(J)  . LT.  0.0) THEN 
1*1 
ENDIF 
HO  CONTINUE 

IF (L  .EB.  0> THEN 
NRITE(M10iCHARU2) 

HRITE!1,”10(/),1X.”T0  PERFORH  PRIMAL  PIVOTS,  FT  LEAST  0NE”/3X 
..”C!J>  MUST  8E  HEEATIVE.  THIS  IS  NOT” /2X, ’’PRESENT  SO  A  PRIMAL  P 
. IVOT  CAN  NOT  BE”/S7X. ’’DONE. ”//)’> 

PAUSE 
60  TO  100 
ENDIF 
1*1 

DO  150  1*1,  K 
IFUB(I)  .LT.  0.0)THEN 
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L*0 

NRITE(l.llO)CHARtl2) 

NRITEU,’  l!0(/),”T0  PERFOPH  PRIMAL  PIVOTS,  ALL  RHS  VALUES”/ 
.’’MUST  BE  POSITIVE.  THIS  IS  NOT  PRESENT  S0”/4X,”A  PRIHAL  PIVOT  C 
.AN  SOT  BE  DONE .”,//>’> 

PAUSE 
60  T9  100 
ENCIF 
150  CONTINUE 

NRITEU, 11Q!CHAR(12) 

WRITE ( 1 , 160) 

160  FORMAT I 9 ( / ) , 2X , ’ NHICH  COLUMN  CONTAINS  THE  CANDIDATE’ /I IX, ’ENTERING 
.  VARIABLE'”,/? 

170  NRITEU,  ISO) 

180  F0RHATU5X, ’COLUMN  *  ’.$) 

REAiM5,M2Al)  )Pil',P!2) 

CALL  CHECK2 ( P , 2 , VT , I NV AL , I NE  N ) 

IFUNVAL  .ED.  1 ) THEN 
NRITE(l,i30) 

SO  TO  170 
ELSE 

PK.S=INEH 
DID  IF 

IF'PES  .EC.  2 'THEN 

C  USER  HAS  ELECTED  TO  SELECT  PIVOT  NITHOUT  CHECK 
FK--PKS 
GO  TO  300 
ENOIF 

WRITE ( 1, 1 10>CHAR( 12) 

C  USER  SELECTION  CHECKED  FOR  CORRECTNESS  AND  FEEDBACK  PROVIDED 
IF!PK  .EC.  PKStTHEN 
WRITE  < 1 . 190' 

190  FORMAT  I lll/t, IX,’ YOUR  PIVOT  COLUMN  SELECTION  MATCHES  THE’/10X,’A 
.LSOFITHH  SELECTION. ’.Of/') 

PAUSE 

Ei.SE 

IF ' TIE  .EO.  1'THEN 

C  TIE  FOR  PIVOT  COLUMN  EXISTS 

»FtC(PK)+.090J  .6E,  C'PKS)  .AND.  ClPKKOOOl  .LE.  C!PKS!)THEN 
C  CHECKS  IF  USER  SELECTION  ONE  OF  TIES 

WRITE  1 1 f 190) 

PK'FKS 
PAUSE 
END  IF 
ELSE 

WRITE! 1.200? 

200  FORMAT (5 </),’ YOUR  SELECTION  OF  PIVOT  COLUMN  DOES  N0T’/6X,’MATC 

.H  THAT  OF  THE  ALGORITHM.' //2X, ’WHICH  SELECTION  DO  YOU  NISH  TO  USE? 

NRITEU. 220>PKS,FK 

220  F0RNAT!/3X,’t.  YOUR  SELECTION  COLUMN  *  ’ ,  12//U>X,’0R7/!X, ’2. 

.  algorithm  selection  column  *  ’,12) 
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230  NRITE (1,240) 

240  FGRHAT {//12X, ’ WHICH  OPTION?  ’,*) 

REA0<5,’(A1)’)P(1) 

CALL  CH£CK2(P,1«2, INVAL.INEH) 

IF  (IMVftL  .Efi.  I) THEN 
NRITEU, 130) 

SO  TO  230 

ELSE1F tlNEH  ,EB.  DTHEN 
PK=PKS 
ENDJF 
ENDIF 
ENDIF 

300  NRITEU, 110)CHARU2! 

C  RATIOS  FOR  PIVOT  CQLUm  CALCULATED  AND  DISPLAYED 
NRITEU,  320)  ?K 

320  FORHfiTUOX, ’RATIOS  FDR  COLUMN ’,12/) 

SPR*10.EB 

TIE=0 

DO  400  I=1,K 

NRITEU, ’(lOX. ’’ROM  ”,I2,”  *  ”,*.)’)! 

JF(AU,PK)  .LE.  .0001 1 THEN 
IF(AII.PK)  .SE.  -.0001) THEN 
IF (X8 ( 1 )  .LE.  .0O01  .AND.  XBU)  .SE.  -.0001 (THEN 
NRJTEU,’  '”0.0”>’) 

ELSE 

NRITEIl,  ’("INFINITE”)’) 

ENDIF 

ELSE 

NRJTEU.  M”NE6ATIVE  RATIO”)’) 

END  IF 

ELSEIFi <XB<I)/A(I.PK) )  .SE.  10.E6)THEN 
NRITEU,’ ("INFINITE”)’) 

ElSE 

RATIO*  UBU)/A'I,PK>) 

IF(FNT  .ES.  OtTHEN 
NRITEU,  ’UFE12.5)’ (RATIO 
ELSE 

NRJTEU, MF12.5)’)RATI0 
END  IF 

IF (RATIO  ,LT.  SPR1THEN 
TIE*0 
SPR®RATIO 
PR*I 

ELSEIFIRATIOt.OOOI  ,6E.  SPR  .AND.  RATIO-. 0001  .LE.  SPRIT HEN 
TIE-1 
ENDIF 
EHDIF 
400  CONTINUE 

C  USER  SELECTS  PIVOT  RON 
NRITEU, 410) 

410  FORMAT ( /4X , ’ WHICH  RON  CONTAINS  THE  CANDIDATE’ / 11*. ’LEAVIN6  VAR 
. IASI E?’ ) 


42C  WRITE d, 430) 

430  FORHATdiX.’WJW  =  ’,<) 

R£AD(5,’<2Al)')Pd>,P<2) 

CALL  CHECK2<P,2,K,INVAl(INEW) 

IFUNVAL  .Efl.  DTHEN 
WRITE! 1,139) 

SO  TO  420 
ELSE 

PRS*INEW 

EWD1F 

IF'PES  .£9.  2) THEN 
PR*PRS 
60  TO  700 
ENDIF 

WRITE  d,  119)  CHAR(12) 

C  USER  SELECTION  CHECKED  AND  FEEDBACK  PROVIDED 
IF (PR  .EQ.  PRS) THEN 
WRITE (1,450) 

450  FORMAT;  1! (/). IX, : YGL«K  PIVOT  ROW  SELECTION  HATCHES  THE’/10X,’AL6C 
.RITHH  SELECT  ION. ’,7  i/'D 
PAUSE 

ELSEIF < TIE  .Efl.  DTHEN 

IFH(XB(PR)/A<PR.PiOl+.0C01)  .BE.  (XB(PRS)/A(PPS,PK))  .AND. 

.  { .'  XB  (PR*  /  A  ( PR,  PKD  •*. 0001 )  .LE.  (1B(PRS)/A(PRS,PK) DTHEN 
WRITEU,450( 

PR»PR5 

PAUSE 

ENI-IF 

ELSE 

WRITEU.470) 

470  F0RHAT(E(/).2X.’V0UR  SELECTION  OF  PIVOT  ROW  DOES  NOT’ /«, ’HATCH 
.  THAT  OF  THE  ALSORITHH. ’ //2X, ’WHICH  SELECTION  DO  YOU  WISH  TO  USE?’ 
.) 

WRITE <1,4?0>PRS, PR 

490  F0RNATI/4X,’!.  YOUR  SELECTION  ROW  =  ’,12//15X,’QR’//4X,’2.  ALGO 

.RITHH  SELECTION  ROW  »  ’,12) 

500  WRITE(1,240) 

READ'S, ’(AI)’)P(l) 

CALL  CHECK2 (P, 1 , 2, INVAL, INEW) 

IFDNVAL  .Efl.  DTHEN 
KPITEd.130) 

SO  TO  500 

ELSEIF  (INEW  .Efl.  DTHEN 
PRsPRS 
ENDIF 
END  IF 

C  PiVOT  ELEMENT  CHECKED  TO  INSURE  NOT  ZERO 
TOO  IF(A'PR.PK)  ,LT.  .0001  .AND.  A(PR,PK)  ,6T.  -.OOOUTHEN 
C  USES  61VEN  OPTION  TO  CONTINUE  WITH  ZERO  PIVOT  ELEMENT 
CALL  OVER (RES) 

IF (RES  ,E3.  9) THEN 
60  TO  IOC 
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END1F 
ENDIF 
CALL  WORK 
RETURN 

C  DUAL  PIVOT  ELEMENT  DETERMINED 
1000  NRITEU,1!0!CHAR(12) 

00  1010  J=i,VT 
IF vC (J)  .LT.  0.0) THEN 

NMTEU,’  (10»/),”T0  PERFORM  DUAL  PIVOTS,  ALL  CU)  MUST”/”BE 
.  POSITIVE.  THIS  IS  NOT  PRESENT  AT  TH!S:,/”T!RE  SO  A  DUAL  PIVOT  CA 
.N  NOT  BE  DONE .”,///)’> 

M*0 
PAUSE 
SO  TO  100 
ENDIF 
1010  CONTINUE 
M=0 

DO  1C20  1*1,  k 
IF(;B(I)  .LT.  0. 0) THEN 
M=1 
ENDIF 

1020  CONTINUE 

IF TH  ,EB.  0 ) THEN 

NR1TE(1,’«10(/),”TC  PERFORM  DUAL  PIVOTS.  AT  LEAST  ONE  PHS”/  ” 
.MUST  BE  NEGATIVE.  THIS  IS  NOT  PRESENT  AT’ ’/’’THIS  TIME  SO  ft  DUAL  P 
-IVOT  MILL  NOT  BE”/”DONE. ”,///)’; 

PAUSE 
60  "3  100 
ENDIF 

C  USES  SELECTS  PIVOT  RON 
NR1TE<1,410) 

1030  NRITE(1,430> 

READ(5,’I2Al)’)P<i),P(2) 

CALL  CHECK2(P,2,K. INVAL,INEM) 

IF'INVAL  .Efi.  1)THEN 
NRi’EU.lIO) 

6C  TO  1030 
ELSE 

PPS=INEM 

ENDIF 

IFiPES  .Ed.  2)THEN 
PR*PRS 
60  TO  1300 
ENDIF 

C  ALGORITHM  SELECTS  PIVOT  ROM 
SHE 6*0.0 
DO  '.050  1*1, K 
IF(SBtl)  .6T.  SNEB) THEN 
60  TO  1050 

ELSCIF (XB(I)  .ED.  6NE3) THEN 
TIE*1 
ELSE 
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TIE*0 

6NEB*)tB(I) 

PR=I 

ENDIF 

1050  CONTINUE 

C  USER  SELECTION  CHECKED  AND  FEEDBACK  PROVIDED 
NRITEd, U0)CH«id2) 

IF (PS  .Efi.  PRS)THEN 
NRITE< 1,450) 

PAUSE 

ELSE 

NRITEd, 470) 

NRlTE'l, 490JPRS.PR 

1070  NRITEd. 2401 

READi5. ’(AI)MP(l) 

CALL  CHECK2 (P, 1,2, INVAL, INEW) 

IF  (INVAL  ,E9.  11  THEN 
NRITEd.  13C) 

50  TO  1070 

ELSEiFUNEN  .E9.  DTHEN 
PR=PRS 
ENDIF 
ENDIF 

1300  NRITEd.  110)  CHAR  (12) 

C  RATIOS  FOR  SON  CALCULATED 
NRITEii,1320!PR 

1320  FORNATdlT, ’RATIOS  FOR  RuN  ’,12/) 

SPS*-iO.E3 
CO  1400  J«1.VT 
DO  1350  1*1, K 
IF(CBII)  .ED.  j ) THEN 
GO  TO  1400 
ENDIF 

1350  CONTINUE 

NRITEd,  ’ (9», ’ ’CCLUNN  ”,12.”  = 

IF  (A (PR,  J )  .SE.  -.OOODTHEN 
IF!A(PP .LE.  .OOODTHEN 
IF <C ( J)  .LE.  .0001  .AND.  C(J)  .SE,  -.OOODTHEN 
NRITEd,  M”0.0”)’> 

ELSE 

NRITE 1 1 ,’(”  INFINITE” )' ) 

ENDIF 

ENDIF 

ELSEIF((C(J)/A(PPJi)  .LE.  -lO.EAJTHEN 
NRITEd,’ ("NEGATIVE  INFINITE”)’) 

ELSE 

RATIO«(CU)/A'.FR.J)) 

IF (PUT  .£3.  Of  THEN 
NRITEd,’ (1PE1*.5)’)RATIC 
ELSE 

NRITEd.’  (FI2.5)  ’  )SATIO 
ENDIF 
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IF (RATIO  .EE.  SPRITHEK 
PK*4 

SPR*RAT1D 
ENDIF 
END  IF 
1400  CONTINUE 
PAUSE 

WRITE (1,1 10) CHAR (12) 

C  USER  SELECTS  PIVOT  COLUMN 
WRITE  ( 1,1  W» 

1420  WRITE(1,180) 

READ(5,,(2Al)’)P(n.P(2) 

CALL  CHECK2  <  P , 2 , VT , I NVAL , INEW ) 

IFdNVAL  .EO.  ./THEN 
NRITEU.130) 

EC  TO  1420 
ELSE 

PKS-INEN 

EMDIF 

IFiPES  .EQ.  2) THEN 
PK=PKS 
60  TO  1700 
EMDIF 

NRJT£(1,110)CHAR(12> 

C  USER  SELECTION  CHECKED  AND  FEEDBACK  PROVIDED 
IF(FK  .ED.  PKS/THEN 
NRITEU.1SC) 

PAUSE 

ELSE 

WRITE (1,200) 

NRITE(l,220iPKS,PK 
1440  NRITE(1,240) 

READ(5,’  !A1DP(1) 

CALL  CHECK2'Pf 1,2, INVAL, INEW) 

IFUNVAL  .ED.  1 ) THEN 
WRITE  U.i3C) 

60  TO  1440 

ELEEIFUNEN  .ED.  1 ) THEN 
P*>PX3 
ENOIF 
ENDIF 

?F'A(PR,PK)  .LT.  .0001  .AND.  A(PR.PK)  ,6T.  -  0001) THEN 
C  USER  6IVEN  OPTION  TO  CONTINUE  WITH  PIVOT  ELEMENT  OF  ZERO  VALUE 
CALL  OVER (RES) 

IF (RES  .ED.  0) THEN 
60  TO  100 
ENDIF 
END  IF 

I’OO  CALL  NORK 
RETURN 
END 
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C  t  »  I  t  *  »  »  I  »  I  t  *  I  »  t  »  *  I  I  It  I  I  I  M  I  I  «  I  t  I  »  I 

C  NODULE  2  UNIT24 
C 

C  SUBROUTINE  WORK  I 

C  USE:  PERFORMS  SIMPLEX  PIVOT  USIrtS  DESIGNATED  PIVOT  ELEMENT,  NO 
C  USER  INTERFACE.  I 

C  CALLED  BY:  SUBROUTINE  PIVOT 

C  CALLS  :  NONE  i 

C  VARIABLES: 

C  USED:  K.PK,PR,VT  i 

C  MODIFIED:  A t * : , C («) , CB < » > , HOLD, PELE, X3 U> , 2 

C  M  M  I  I  I  tt  I  it  I  I  I  H  t  M  I  I  I  t  M  M  t  I  I  II  I  I 

SUBROUTINE  HORN 

INTEGER  fcRTV, BASIC. PK.PKS, ?R, PRS, OPTS, V, VT,C8, PE5,CIU, DUAL. OUTP 
C0IW0N/El/A(20.ii0)  ,ARTV(20),CI60'/ iNEQ«2C) ,  IFLAG  (10)  f  CBI20- 
. . NEC, N6C.NLC, !Af INDFZE, INDEXS, INDEXL. ti 120: 

CCKN0N/E2/ BASIC, K,KFA, NFS, KFSA.KFSU.OPTS.PK.PKS, PR, PRS, V.VT.HXNN 
PELE*A(PR,FK) 

DO  200  J=!,VT 
A(?R,i)*AlPR,J)/PELE 
200  CONTINUE 

XB<PR)*XB'PR)/PELE 
CBiPR)-?K 
DO  300  1*1,  K 
IF (I  ,E9.  PR (THEN 
60  10  300 
END  IF 

HOLD*A(I, PK) 

DO  250  J*!,VT 
A(I.J)*AU,»)-HOLDIA(PR,J) 

250  CONTINUE 

X3< I )=XB( I ) -HDLDtXB (PR) 

300  CONTINUE 
HOOCIPK) 

DO  350  3=1, VT 
C(J)=C(J)-HOLD»A(PR,J) 

350  CONTINUE 

Z=:-HOLDIXB'PR) 

RETURN 

END 
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c  I  I  *  I  t  t  I  I  I  I  M  I  I  «  I  l  I  I  I  »  t  t  *  I  I  I  t  t  I  t  I  I  I  » 

C  MODULE  2  UKITI4  t 

C  » 

C  SUBROUTINE  OVER (RES)  * 

C  USE:  DISPLAYS  STATEMENT  THAT  PIVOT  ELEMENT  IS  APPROXIMATE!  Y  ZERO  » 

C  AND  PERFORMANCE  OF  PIVOT  MAY  RESULT  IN  SYSTEM  OVERFLOW  ERROR.  » 

C  SOLICITS  RESPONSE  AS  WHETHER  TO  CONTINUE  WITH  PIVOT  AND  SETS  t 

C  FLA6S  TO  REFLECT  THIS  RESPONSE.  I 

C  CALLED  SY:  SUBROUTINE  PIVOT  I 

C  CALLS  :  NONE  » 

C  VARIABLES:  t 

C  USED:  NONE  t 

C  MODIFIED:  Pd/.RES  I 

C  M  I  *  t  t  t  t  I  I  I  I  I  t  t  $  «  t  t  t  f  t  I  t  t  t  I  I  t  t  I  »  t  M 

SUBROUTINE  QVER(RCS) 

CHARACTER  Pll 
INTESER  RES 
RES-0 

WRITE  U , 1 10) CHAR (12) 

HO  FORMAT  (A) 

WRITE! 1,150) 

150  FORMAT <8(/) .31, 'THE  PIVOT  ELEMENT  SELECTED  IS  N0T’.'2X.’SI6NJF1CANT 
.LY  DIFFERENT  FROM  ZERO.’/'JX.’THIS  MAY  CAUSE  AN  OVERFLOW  ERROR’/ 
.7X, ’ IF  THE  PIVOT  IS  PERFORMED.’) 

160  WRITE (1,170) 

170  FORMAT! /7X, ’DO  YOU  NISH  TO  CONTINUE1  ’.$) 

READ (5. ’  !A1;’)P 
IFUCHAR(P)  .Efl.  89) THEN 
ScS*l 
RETURN 

ELSEIFdCHAR'P)  .N£.  78) THEN 
NRITEO.’ I/5X.’; INVALID  ENTRY.  PLEASE  REENTER”)’) 

SO  TO  160 
ENDIF 
RETURN 
END 
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c  I  I  t  »  *  I  »  I  I  I  I  $  I  »  »  »  I  *  »  »  I  I  I  »  t  1  I  »  i  t  t 

C  MODULE  2  UNIT25 
C  UNIT  (USES:  NONE 
C 

C  SUBROUTINE  HEADER 

C  USE:  DISPLAYS  TITLE  PAGE  OF  NODULE  2,  EDUCATIONAL  NODULE. 

C  CALLED  BY:  PROGRAM  EDUf 
C  CALLS  :  NONE 
C  VARIABLES:  NONE 

C  i  t  «  i  I  i  »  «  »  I  I  »  *  x  «  *  i  t  i  t  »  i  i  »  i  t  »  «  i  »  t 

SUBROUTINE  HEADER 
WRITE ( 1 , 1 10) CHAR • 12? 

HO  FORMAT  (A) 


HOFEi'l,'  t4(.,},9X,22i”t”)./9Y,”t’’,20X,”4”/9X,”t”,7X 
.R”,7X,”4”/9X,”t”t20X,”l”/9X,”t’’,4X,”PR05RANM!NS’ 
,*’\20X, ’**' 79X,  ”t’’, 4X, ’’EDUCATIONAL’ \5X,’ ’I” 
NR1TEU,  ’  ■9X,”l”,2vX,”t”/9X,  :’t”,7X,  "MODULE  -  ’,7X,  ”t 
.$”,20X,”l” /9Y,” I”, 20X, ,7X,” MODULE  2”. 
./9X,'’»’i,20X.”»”/9X,22(”l”))3(/))i 
PAUSE 


RETURN 

END 


t  t  t 


I  I  » 


, ’’LINEA 
’.5X,”t 

!  ’  i 

’  ■  /  9  y .  ” 
5X,’’T” 
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i 


Ctttttflttttltttltttttttttttlttttttt 

C  HOME  2  UNIT2V  I 

C  I 

C  SUBROUTINE  ASKS (ASK)  I 

C  USE:  ROUTINE  PROMTS  USFR  TO  RESPOND  WHETHER  OR  NOT  FINAL  t 

C  SOLUTION  IS  TO  BE  SAVED  TO  DISK  FOR  SENSITIVITY  ANALYSIS.  IF  » 

C  USER  REQUESTS  FILE  TO  BE  SAVED,  A  VOLUME: FILENAME  IS  I 

C  REQUESTED.  THIS  FILE  IS  OPENED  AND  FORMATTED  SO  AS  TO  BE  » 

C  CCNPATIBLE  WITH  MODULE  4  INPUT  REQUIREMENTS.  ALSO,  THIS  I 

C  FILENAME  IS  WRITTEN  TO  DISK  IN  THE  DATA  FILE  LF2: LPDATAW  I 

C  FOR  TRANSITION  TO  NODULE  4.  USER  IS  NEXT  PROMPTED  TO  I 

C  DETERNINE  WHETHER  OR  NOT  ANOTHER  NODEL  IS  TD  BE  STUDIED  KITH  I 

C  THIS  NODULE.  IF  NO  OTHER  NODEL  IS  TO  PE  STUDIED.  NODULE  2  IS  I 

C  TERMINATED  WITH  INSTRUCTIONS  ON  ENTERING  NODULE  1.  » 

C  CALlED  BY:  PROGRAN  EDUC  » 

C  CALLS  :  NONE  I 

C  VARIABLES:  t 

C  USED:  A>M),BU),CU),CB(»),CN(l),C0<»),IFlA6<5),IN9EiCE,  » 

C  INEB<l),K,NN,NXNN,KEC.NGC,NLC,OBJN,PINEOm,PN,V,VT,  t 

C  VNUMBU5  : 

C  MODIFIED:  A0<»,I),ASK,FN.FN0,IFLABII),IFLA8(10),P<I)  I 

C  t  <  I  I  I  I  It  I  I t I f  I  t  M  >  I  I  I  I  I  I  t  t  I  I  I  I  I  I  I  t  I 

SUBROUTINE  ASKS ( ASK t 

CHARACTER  VNI4, CNI4, PN»20, NNI3, FNt 10. P INEBI 1 . PI 1 . DBJNtiO, FNOt 1 0 

INTEGER  ARTV, BASIC, PK.PKS, PR. PRS,OPTS,V,VT,CB, ASK 

C0NNGN/E1 /A ( 20, 40) , ARTV  <  20) , C (40) , Z . INES i 20) . IFLAG ( 10) « CB (20) 

, ,N£C,NGC,NLC, !A. INOEIE, INDEXG, INDEXL. XB(20> 

COWON/  E2/3ASIC.  K,  KFA.KFS,  r.FSfi,  i-'FSU,  OPTS.  PK.  PKS,  PR.  PPS.  V.  VT,  MXNN 
C0NH0N/E4/VNf20),CN(20),PN,!1N,FN,PINEBi:-)j,P(10),0BJH 
DIMENSION  AilC(l,20),B(20!.CQ(:0) 

FNO=FN 

ICO  NRITEd,  1 10)CHAR(12; 

110  FORMAT (A) 

ASK=0 

I FLAG (101*0 

WRITE :  1 , ’  !8(/),”T0  PERFORN  SENSITIVITY  ANALYSIS  ON  THIS’ ’/’ 'MODEL 
.,  THE  1NF0RNATIGN  OF  THE  CURRENT” /’’TABLEAU  NUST  BE  SAVED  TO  DISK 
,.”'/)’) 

130  NRITEd,’  (”D0  YOU  WISH  TO  SAVE  THIS  FILE  TO  DISK’  ”,»)’> 

READ'S,  MAD ’>P(I) 

If  dCHARlPdH  .£0.  89! THEN 
NRITEd, UO'CHARdn 

NRITEd,’ um, ’’SAVE  LP  NODEL  TO  DISK”///2I,”EN<ER  THE  DISK  D 
.RIVE  HUNGER  AND  FILE”/?J.”NANE  YOU  NANT  THE  CURRENT  TABLEAU  OF” 
./3X.A2C.”  SAVED  UNDER. ”-’>PN 

NRITEd,’ (/8X, ’’ENTER  EXACTLY  AS  FOLLOWS”/ iOX, ’ ’DISK  DRIVE:FILE 
,NAHE”//I2X.' 'ES.  I4:FILENAH”/7”THE  DRIVEsFILENANE  MUST  BE  10 
.  CHARACTERS” /lsX.”  OR  LESS” //iX, ”D0  NOT  USE  THE  SANE  NANE  USED 
.  WHEN  THE” /4X. ’’ORIGINAL  NODEL  NAS  ENTERED.”)’) 

NRITEd,’ </7X,”DISK;FILEMAME  *  ”,*)’> 

READ15.’ (AiO)’)FN 

ISO  HRITE:!,’('7X,”ARE  CORRECTIONS  NEEDED?  ”.*)’) 
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READ(5tMAl)’)P(l) 

IF!ICHAR!P<1))  .EB.  89ITHEN 
SO  TO  100 

ELSE IF < 1CHAR (P < 1 > )  ,NE.  78) THEN 
W?ITE(1,  ’  1/5X,  ’  *  INVALID  ENTRY,  PLEASE  REENTER”)’) 

SO  TO  ISO 
ENDIF 

WRITE  < 1 , 1 10) CHAR  <  12) 

WRITE!!,’ <11  </>, IX, "INSURE  DISK  LP2  IS  AVAILABLE.”, 7(/) 

.)’) 

PAUSE 

C  TRANSFER  FILE  OPENED  AND  Fill  NAME  WRITTEN 

OPEN (3, FILE*' LP2 : LPD AT  AN ’ , S7  ATUS* ’ OLD’ , FORM* ’ UNFORMATTED ’ ) 

WRITE  >3  ?  FN 

C  TRANSFER  FILE  CLOSED 
CLOSE (3, STATUS*’ KEEP’) 

WRITE ( i , 1 10)CHART 12) 

C  USER  PROMPTED  TO  INSERT  DISK  WHICH  SOLVED  MODEL  IE  TO  BE  SAVED 
WRITE!!, ’!?(/), 2X,” INSURE  THE  DISK  TO  CONTAIN  THE  FILc”//15X, 
. A10/ / 1 3X IS  AVAILABLE. ”, 7 !/))’> FN 
PAUSE 

WRITE ( 1 ,1 10)CHAR (12) 

C  CURRENT  STATUS  OF  FILE  INPUT  BY  USER 

WRITE!!, ’;?(/), ’’HAS  THIS  DISKsFllENANE  COMBINATION  EEEN”/12X, 
.’’USED  PREVIOUSLY?”  '/”  (ARE  YOU  UPDATIKB  A  CURRENTLY  EXISTINS”/ 
.  I7X,”F1LE?)”)’) 

200  WRITE ( 1 , ’  I//16X, ’ '  (Y/N)  ”,*)’) 

REA0(5,'!A1)')P(I) 

C  FILE  OF  STATUS  DESIGNATED  BY  USER  OPENED 
!F!ICHAR(P(1))  .EB.  89) THEN 
0PEH/3.FILE*FM,  STATUS*’  OLD’  ,F0RI9*'  UNFORMATTED’ ) 

ELSEIF ilCHARXF (1) )  .EB,  78) THEN 
0PEN!3,FILE*FN.  STATUS*’  NEW’ ,  F  ORH--  ’  UNFORMATTED  ’ ! 

ELSE 

WRITE  < 1. 210) 

210  FORMAT !/5X, ’ INVALID  ENTRY,  PLEASE  REENTER’) 

60  TO  200 
END1F 

C  SOLVED  MODEL  NRITTEN  TO  DISK 
NRITE(3)FN,HXHN,K,V,1FLA6(5) 

WRITE(1,11C)CHARU2) 

WRITEU,’ (9!/), 5X, ’’INSURE  THE  DISK  CONTAINING  THE”//15X,A)0 
.'/10X, ’’MODEL  IS  AVAILABLE.”, 7!/) >')FNO 
PAUSE 

C  ORIGINAL  MODEL  FILE  OPENED  TO  READ  ORIGINAL  PARAMETERS 

0PEN(4,FILE*FN0,STATUS*’0LD’,F0RM*’UNF0RMATTED’i 
READ!4)PN.MXMN,MH,K,V,NEC,N6C,NLC 
DO  220  1*1,10 
READ(4)IFLAS(1- 
220  CONTINUE 

DO  240  I*),K 

REhD!4)INE6(I),PINEB(1),B(I) 
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DO  230  J*1,V 
READ (4) AO I I, 3) 

230  CONTINUE 
240  CONTINUE 

DO  250  3=1,  V 
READ(4)CQ(J> 

250  CONTINUE 

CL0SE(4,STATUS=’KEEP’ ) 

44R I TE  ( 1 , 1 1 0 )  CHAR  <  i  2 ) 

NRITEU, ’<?</). "INSURE  THE  DISK  TO  CONTAIN  THE  FILE” // I5X, A10 
. // 13Xf * ’ IS  AVAILABLE. ’\7</))’>FN 
PAUSE 

DO  270  1=1 ,K 
NRlTE<3)INE8il),B(!) 

DO  260  3=1. V 
NRITE(3)A01I,J) 

260  CONTINUE 
270  CONTINUE 

C  SOLVED  MODEL  WITH  ORIGINAL  PARAMETERS  WRITTEN  TO  FILE 

DO  275  3=1, V 
WRITE (3)C0<3) 

275  CONTINUE 

iFLA6UG)*0 
WRITEI3) IFLAS(IO) ,  VT 
DO  290  1=1,  K 
NRITE!3i»B(I);CBtI) 

DO  280  3=1, VT 
WRITE (3)A(I,J) 

280  CONTINUE 

290  CONTINUE 

DO  300  3*1, VT 
WRITE(3)C(3) 

300  CONTINUE 

WRITEIoJZ 

!F!IFLAG<5)  ,E0.  DTHEN 
DO  310  I»!,K 
WRITE<3)CN(I) 

310  CONTINUE 

DO  320  3*1, V 
NR1TE(3IVN;3) 

320  CONTINUE 

WRITE (3)0B3N 
END  IF 

CLOSE (3. STATUS*’ KEEP') 

WRITE  I i . 1 10  >CHART 12) 

WRITEU, ’(It!/), iX, ’’INSURE  DISK  LP1  IS  AVAILABLE. ”, 7 (/ ) 
,)’i 
PAUSE 

ELSE1F(ICHAR(P!1)!  ,NE.  78) THEN 
WRITE ( 1 ,210) 

60  TO  130 
END  IF 
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390  WRiT£ll,119)CHAR(I2) 

NRI7E'.l,Mlil/>,lX, "WOULD  YOU  LIKE  TO  STU1>Y  ANOTHER  H00EL”/4)(,” 
.WHICH  HAS  BEEN  SAVES  TO  DISK?  ”.*)’) 

R€AD<5, ’(Al)’)P(l) 

IFilCHARiPii))  .E6.  89) THEN 
400  WRITEll, llO)CHARil2) 

WRJTEU,’  (9(/),21(.  "ENTER  DISK  DRIVE  NUMBER  AND  FILENAHE”/4X,” 
•  WHICH  THE  NOSEL  IS  SAVES  UNDER.”)') 

WRITEU,’ </S)t,”HODEL  TO  STUDY  *  ”,*>’) 

READ(S|'(A10)’)FN 

450  WRITEll.’  !//7X, "ARE  CORRECTIONS  NEEDED?  ”,*)’) 

READ<5,’<A1>’)PU) 

IFilCHAf(P'D)  .EQ.  39 (THEN 
SO  TC  400 

ELSEIFUCHAR(PUj)  .NE.  78) THEN 
WRITE  <!,’(/5X,” INVALID  ENTRY,  PLEASE  REENTER”)’) 

SO  TO  450 
ENDIF 

WRITEll,  U0)CHAR<12) 

WRITEll, M1K/), IX, "INSURE  DISK  LP1  IS  AVAILABLE. ", 7</) 

.)’» 

PAUSE 

C  TRANSFER  FILE  OPENED  AND  NEW  MODEL  FILE  WANE  WRITTEN 

0PEN<3,FILE*’LP1;LPDATA’,STATU3=’0LD’,F0RIW’UNFCRNATT£D’) 

KRITE<3)FN 

CLOSE 1 3 ,  ST ATUS= ’ KEEP ’ ) 

ASK=1 

RETURN 

FLSEIF<ICHAR<P<D )  .NE.  78>TH£N 
WRITEll, M/5X, ’’INVALID  ENTRY,  PLEASE  REENTER”)’) 

60  TO  390 
ENDIF 

WRITE (1 , 1 10)CAHR  < 12) 

WRITEU, Mill/), IK, ’’INSURE  DISK  LPi  IS  AVAILABLE.”, 7(/))’) 
PAUSE 

WRITE'!, 110) CHAR (12) 

WR1TE(!,’(8(/),1X,”T0  ENTER  THE  LP  DATABASE  H0DULE:”//17X, ’’TYPE 
,  ” // I9X ,  ”  X '  ’ / 1 1 K ,  ”  LPI : SYSTEH. STARTUP.  ” , 3 ( / ) > ’ * 

STOP 

RETURN 

END 
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C  »  M  I  I  t  »  I  I  I  I  I  I  I  »  I  t  I  I  I  I  I  I  *  I  t  I  *  t  I  t  I  I  I  » 

C  MODULE  2  UKIT25  I 

C  t 

C  SUBROUTINE  SUE3TN  t 

C  USE:  DISPLAYS  INSTRUCTIONS  TO  USER  N0TIN6  THAT  TABLEAU  SHOULD  BE  t 

C  STUDIED  TO  ALLQH  USER  TO  ANSWER  IDENTIFIED  QUESTIONS  WHICH  t 

C  FOLLON.  ONLY  DISPLAYED  IF  USER  IS  SELECTIM6  PIVOT  ELEMENT  t 

C  AND  OUTPUT  IS  TO  SCREEN.  t 

C  CALLED  BY:  PRQ6RAN  EDUC  I 

C  CALLS  :  NONE  * 

C  VARIABLES:  NONE  I 

cttttfttittttttttttttttttttittittitt 

SUBROUTINE  fiUESTN 

«RITE(i,liO!CHAR(12) 

110  FORMAT (A) 

NRI TE U i M2 ! /) ,  1 1 , ’ ' FF.ON  THIS  POINT  ON.  YOU  MILL  BE  ASKED” /9X,’  ’B 
.UESTIONS  C0HCERNIN6: ”//”!.  PIVOT  COLOHN  SELECTIONS”//” 2.  PIVOT 
.  RON  SELECTIONS”/)’) 

WRITE (i, ’ ( ’ *3.  DUAL  PIVOTSUF  OPTION  SELECTED)”//” A.  OPTIMALITY, 

.  FEASIBILITY,  BOUNDEDNESS” /3X' ’ (IF  OPTION  SELECTED)' ’)’ ) 
NRITE(1.M//”BE  SURE  TO  EXAMINE  *HE  SCREEN  OUTPUT” /’’OF  THE  TABL 
.EAUS  CAREFULLY  BEFORE”/”  CONTINUING  SO  YOU  NAY  ANSWER  SUES  FI  OHS” 
.  ’’AS  NOTED  ABOVE.”/)’! 

PAUSE 

RETURN 

END 
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CfttttttttMttttltttttttttttttttttt 

C  MODULE  2  UNIT25 
C 

C  SUBROUTINE  E16H 

C  USE:  PERFORMS  CALCULATIONS  TO  ACQUIRE  A  INITIAL  BASIC  SOLUTION 
C  NHEN  ARTIFICAL  VARIABLES  HAVE  SEEN  ADDED  TO  MODEL.  NO  USER 
C  INTERFACE. 

C  CALLED  BY:  PROSRAN  EEUC 
C  CALLS  :  NONE 
C  VARIABLES: 

C  USED:  A't,t),ARTV<t)'BM'KFA,N6C,V,VT,l(B<J> 

C  MODIFIED:  Clt>,KFSU,tA,M.SL'h,Z 

ciitmimiitimiiiiimtmnm 
SUBROUTINE  BI6M 

1NTESER  AF.TV, BASIC, FK,PKS, PR, PRS. OPTS, V.VT.CB.PES.OI'J, DUAL, Ol’TP, 
.TIE,  FITT 

COWIOK/E I  /A  <  20 , 60) ,  A«TV  -1 20  J .  C  < dO J ,  Z ?  I  «EQ  <  20 » .  I FLA5  <  1 0 > ,  CB  ( 20> 

. ,NEC,N6C,NLC, 1A, 1N0EXE, INPEX6, IMDEXL,  XB(20: 

CGMMGN/E2/ BAS IC, K, KFA, KF3, KFSA, FF5U, OPTS , PK, PK5, PR, PFS, V, VT, MXNN 
C0MM0N/E3/H0D,PES,0IU, DUAL, 0UTP,1TAB,1BTAB,IFTAB,BM, TIE, FMT 
IA=IA-t 
KFSUsV+N6C 
DO  300  JM.KFSU 
SUM=0.0 
DO  200  1*1, IA 
SUM«SUM+ A ( ART V ( I ) , J ) 

200  CONTINUE 

CU)=C(0)-iBMISUM) 

300  CONTINUE 

OQ  400  J«KFA,VT 
C!J’=0.0 
490  CONTINUE 
SUM=0.0 
DO  500  i»l,IA 
S'UM=SliN+/B<ARTV(Ii) 

500  CONTINUE 
Z*Z-<8NtSUN) 

RETURN 

END 
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C  t  t  It  I  I  I  I  t  t  I  I  t  t  t  I  t  t  t  I  t  t  I  t  t  I  t  I  t  I  t  I  t  t 

C  NODULE  2  UNIT  25 
C 

C  SUBROUTINE  INDEX  i 

C  USE:  DETERMINES  THE  COLUMN  POSITION  OF  ADDED  SLACK.  SURPLUS,  AND 

C  ARTIFICIAL  VARIABLES.  PLACES  THE  APPROPRIATE  COEFFICIENT  IN  i 

C  THE  A(t,t)  ARRAY  FOR  EACH  AND  IDENTIFIES  THE  INITIAL  BASIC 

C  VARIABLE.  CHANGES  ALL  INEQUALITIES  TO  EQUALITIES  IN  RINEBU)  i 

C  AND  NAMES  THE  ADDED  VARIABLES  FOR  NAMED  MODELS. 

C  CALLED  BY:  PRQSRAM  EDUC 

C  CALLS  :  NONE 

C  VARIABLES:  i 

C  USED:  IFLA6'5),IN£Q!«),K,NEC,NGC.NLC.V 

C  MODIFIED:  AI»,*).ARTVI*).CBI*),CN!t),IA,IHDEXE,INDcXS,INDEXL,KFA,  i 

C  KFS, KFSA, Kf SU . P INEQ ( t ) , VN (t ) , VT 

C  t  t  t  t  t  t  *  I  t  t  I  t  I  t  t  t  t  t  t  t  t  t  t  t  t  t  t  t  t  t  t  t  t  t 
SUBROUTINE  INDEX 

CHARACTER  VNI6,C«S.?NI20,B»t3,FN$lO,PINEMl,Pll,OBJN»10 
INTE6ER  ARTV, BASIC, PK,PKS, PR, PRS, OPTS, V,VT.CB 
COMHON/E!/AI20,40j,ASTV(20),C'60),Z,INE6(20;,IFLA6(10),CBi20) 

NEC. NSC. NIC, I A, INDEXE, INDEXE, INOEXL,  XB(20- 
C3MM3N/E2/BASIC,K,KFA, KFS, KFSA, KFSU, OPTS, PK,PKS, PR, PRS, V,VT,MXMN 
C0HMCN/E4/VNI20) ,CN(20) ,PN,HN,FN,P1NEB<20) .Ft  10) . OBJN 
IA*1 

KFSA*V+I 

VT*V*(2IN6C)*NLC+NEC 
KFS=V+N6C+1 
KFA=KFS+NLC 
KFSU=V+NSC 
INCEX6*V+J 
INDEXL«VHI6C+l 
I NCEXE- V+N6C+NLC+ 1 
DO  200  1=1, K 
IFIIlEBd)  .ED.  OITHEN 

C  SLACK  VARIABLE  ADDED  Tu  CONSTRAINT 

CB',3:=INEE:<L 
A(I,IN9EXL)*1. 

INDEXL=INDEXL+1 
ELSEIFdNESIl)  .ED.  11  THEN 

C  SURPLUS  AND  ARTIF1CAL  VARIABLE  ADDED  TO  CONSTRAINT 

CB(I)=!NDEXE 
ARTV(1A)=1 
1A=IAM 

Aw,  INDEXE) =1. 

INDEXE*IHDEXE+1 

A(I,iNDEXSi=*l. 

INDETSMNDEXG+I 

ELSE 

C  ARTIFICAL  VARIABLE  ADDED  TO  CONTRAINT 

ARTV(1A)=J 
IA*1A+1 
CB<I)»INDEXE 
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A(I,INDEXE)*1< 

INDEXE-IHCEXE+l 

ENDIF 

pn»EE«D=’=’ 

200  CONTINUE 

•FilFLAGIS)  .EQ.  DTHEN 
DO  210  MFSA.KFS-I 
VK< J) *’SURPLS' 

210  CONTINUE 

DO  220  J«KFS,KFA-1 
VH<J)*»SLACK’ 

220  CONTINUE 

DO  230  J*KFA.VT 
VN<  J  AATIF’ 

230  CONTINUE 

ENDIF 
RETURN 


Cl 


ciMmmmtmmmmtiimm 
C  NODULE  2  UNIT2S 

C 

C  SUBROUTINE  HODIFA  I 

C  USE:  9ERF0RNS  I HE  SAME  FUNCTION  AS  SUBROUTINE  QBNDU  AND  SUBROUTINE 

C  CNfiDV  EXCEPT  NO  USER  INTERFACE.  NOTE  THAT  CONSTRAINTS  KITH  I 
C  NEBATIVE  RHS'S  ARE  MULTIPLIED  BY  -1. 

C  CALLED  BY:  PROGRAM  EDUC  I 

C  CALLS  :  NONE 

C  VARIABLES:  l 

USED:  F,M,IW1N,V 

MODIFIED:  A(M».CU),INE8<I>,NGC.NLC,P!NEQ<I),XB(I)  i 

C  I  t  t  t  I  I  I  »  I  I  t  I  I  I  »  t  »  I  I  It  »  I  »  <  *  t  *  I  *  I  I  I  * 

SUBROUTINE  MQDIFA 

CHARACTER  VN»c,CNIA.?N»20.HHIJ,FN»ie.PINEB*l,Pll,0BJNI10 

IXTEBER  ARTV, BASIC, PK.PKS, PR, FRS, OPTS, V.VT.CB 

COMMON' E 1 / A 1 20 . 60 ) , ARTV  <  20 ) , C ( 60 ) . 2 . 1 HE9 • 20 ) . i FLAG I ! C  > , CB  <  20  > 

NEC, NBC,  NIC,  IA,  INDEXE,  INDF.X6,  INDEXL.  13(20) 

C0HR0N/E2/PASIC, K, KFA, KFS, KFSA, KFSU, OPTS, PK, PKS, PR, PRS, V, VT , NXHN 
C0HH0N/E4/VNI2O),CN(2O.*,PN,NH,FN,PINEfi(20),P(lC),09JN 
IF'HXHN  .EB.  DTHEN 

C  PROBLEM  STATED  AS  MAXIMIZATION 

DO  160  1=1, V 
CU!}*-CU! 

160  CONTINUE 

ELSE 
K«=’HAX’ 

ENOiF 

DO  300  1*1. K 
IFIXBU)  ,LT.  0.0) THEN 
X3(I)=-<B'i) 

DO  200  J*!,V 
A<J,J)=-At!,J) 

200  CONTINUE 

C  COUNT  OF  INEQUALITIES  BY  TYPE  UPDATED  DUE  TO  MULT  BY  -1 

IF(INEBU)  .EB.  0)THEN 
NLC=NLC-1 
M6C=NBC*1 
INEBIDM 
PINEBID*’)’ 

ELSEIF  1NE6(I)  .EB.  DTHEN 
N6C=N6C-1 
NI.C*NLC+1 
INEB1I)*0 
6INEB<1)*’<’ 

END  IF 
ENDIF 
300  CONTINUE 
RETURN 
END 
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Ctttttttttttttttttttttttttttttttttt 

C  MODULE  2  UNIT25 
C 

C  SUBROUTINE  INTF.D 

C  USE:  INITIALIZES  ALL  VARIABLES'- TO  ZERO  EXCEPT  CHARACTER  VARIABLES 
C  AND  READS  MODEL  DESIGNATED  AS  MODEL  TO  SOLVE  FROM  DISK  FILE 
C  CREATED  WITH  NODULE  1.  ALSO  CALCULATES  A  VALUE  TO  BE  USED  IN 
C  "816  N’  HETHOD. 

C  CALLED  BY:  PRC6RAH  EDUC 
C  CALLS  :  NONE 
C  VARIABLES: 

£  USED:  NONE 

C  MODIFIED:  A<t,l),ARTV(|).8A3IC.BH,CI»>,£9(l).CJ,CN!l).FN,IA, 

C  I FLAS<1)  THRU  SFLA6U0; , INDEXE. INDEX6. INDEIL. INEOd) ,K, 

C  NN,!HNN,  NEC,  NSC.  NlC,Q83N, OPTS,  FINEfiU),PN,V,VNU), 

C 

c i t  t  i » i i i i i t  » i i i t  » i  i  i  t t  i  »  i  it  i  »  t  i  i  i  i 

SUBROUTINE  INTRO 

CHARACTER  VNI6,  CNI6,  PIU20,  Nf1» 3,  FN»  10,  PINE61 1 .  PI  1 ,  QBJNt  10 
INTESER  ART1/, BASIC, PK,PKS, PR, FRS, CRTS,  V,VT.CB. FES, OIL1,  DUAL, OUTP, 
.  T IE, FrtT 

CORNON/El/Ai20,60),ARTV(20),C(tO),Z,tKE0(?0),IFLASiI0!,Cb(20) 

. .  NEC,  N6C,  JILL,  IA,  INDEXE.  I  SOFTS.  IN0E7L, 78(20) 

C0MH0K/E2/ BAS  IC,  K,  KFA,>(FS ,  KFSA .  KF5U,  OPTS.  PI: ,  °FS.  PR,  PFS.  V ,  VT,  MXMM 
CGHNQN/E3 /HOD , PES , 0 IU , DUAL , OUTP . I  FAB , i BTAB , I FTAB . BN, T I E , FNT 
COMNON/EA/VN'20)  ,CN(20I  .PN,RR,FN,PIN£6(I0)  ,P<10)  .QBJN 
110  FORMAT (A) 

C  VARIABLES  INITIALIZED 
DO  180  1*1,20 
ARTV ( I ) *0 
C8(I!=0 
INEaw>=0 
<D(I)*0.0 
DC  170  3=1.60 
A(I,»)*0.0 
170  CONTINUE 
180  CONTINUE 

DO  190  7*1.60 
C(J)=C.O 
190  CONTINUE 

CS  200  I*!, 10 
IFLA6(I)*0 
200  CONTINUE 
«EC=0 
N3C*0 
NLC=0 
Z*0.0 
IA*0 
BASiC*0 
0PTS*0 
INDE7E*0 
INDFX6=0 
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INO£XL*0 

WRITE  < I* 1 10>CHAR( 12) 

NRiTEU,  Mil  (/),  IX,  "INSURE  DISK  LP1  IS  AVAILABLE. ”,7(/))’) 
PAUSE 

C  TRANSFER  FILE  OPENED  AND  FILE  NfiHE  READ 

OPEN  <  3 , F ILE* ’ LP1 :  LPDAT  A  STATUS*  ’  OLD  ’ ,  FORK1  ’  'JNFORNAT  TED  ’  > 

READ (3) FN  * 

CLOSE (3, STATUS*’ KEEP’ ' 

WRITE (1« 11G1CHARC12) 

NRITEU, M9(/).5X, ’’INSURE  THE  DISK  CONTAINING  THE” //15X, AlO 
.// 101,” MODEL  IS  AVAILABLE.”,?!/ 1 )’)FN 
PAUSE 

C  FILE  WHICH  CONTAINS  MODEL  OPENED  AND  READ  FROM  DISK 
Q?EN(3,F1LE=FN,STATUS*'QLD’ ,FQRN*' UNFORMATTED’ ) 

READ (3) PN. NXNM, NM,K , V, NEC, NGC, NLC 
DO  220  1*1,10 
READ (3) IFLA6' I ) 

220  CONTINUE 
DC  300  1*1, K 

READ  <  3) INEC  < I ) , PINEQ  < I ) , XB< 1 ) 

DO  280  J=1,V 
PEAD'3iA(I,J) 

280  CONTINUE 
300  CONTINUE 

DC  320  J*1,V 
REAOCOC(J) 

320  CONTINUE 

IFI1FLA6I5)  ,E3.  1 ) THEN 
DO  350  1*1, K 
READ  <3)CN< I ) 

350  CONTINUE 

DC  360  3*1, V 
READ!3)VN(J) 

360  CONTINUE 

DO  380  J*VH,  20 
VN<3)*’ 

380  CONTINUE 

READ<3)083N 
ENDIF 
1FLA6(2)M 

CLOSE (3, STATUS* 'KEEP’) 

WRITE ( 1. 1 10>CHAR (12) 

NRITEd. Mill/), II, ’MN3URE  DISK  LPl  IS  AVAILABLE.”, 7 1/)') 
PAUSE 

C  FIND  APPPOPRIATE  VALUE  FOR  BIS  N 
Ci«0,0 
8M*0.0 

DO  400  J*!,V 

IF <AS5<C<J) >  .ST.  3MITHEN 
BH*A8S(C(J)> 

ENCIF 
400  CONTINUE 
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BM*  tflKIMT  IBfli itlO.O 
IF(BH  .LT.  1.0) THEN 
NHO.O 
END  IF 
RETURN 
END 


C  t  t  t  t  t  I  I  t  t  t  t  t  t  t  t  t  t  t  (  t  t  t  t  I  t  t  t  I  t  M  t  t  I 
C  NODULE  2  UNIT26 
C  UNIT  BUSES:  UNIT27 

C  i 

C  SUBROUTINE  TDISPL 

C  USE!  DISPLAYS  EITHER  THE  CURRENT  CONSTRAINTS,  CONPLETE  LP  NODEL, 

C  OR  THE  CURRENT  TABLEAU,  DEPENDENT  ON  FLA6S  SET  IN  CALLING 
C  SUBROUTINE.  VARIABLES  AND  CONSTRAINTS  ARE  DISPLAYED  WITH 
C  NAHES,  IF  PRESENT,  AND  THE  BASIC  VARIABLE  OF  THE  CONSTRAINT 

C  IS  IDENTIFIED  MHEN  DISPLAYING  THE  CURRENT  TABLEAU.  I 

C  CALCULATES  THE  NUMBER  OF  BO  COLUMN  WIDTHS  TO  DISPLAY  COMPLETE 
C  TABLEAU  AND  PRESENTS  ON  OUTPUT  DEVICE  IN  SECTIONS.  NO  USER  i 

C  INTERFACE. 

C  CALLED  BY:  PROGRAM  EDUC 
C  SUBROUTINE  CNROU 

C  SUBROUTINE  DPT 

C  SUBROUTINE  READY 

C  SUBROUTINE  TCAL 

C  CALLS  :  NONE 

C  VARIABLES:  I 

C  USED:  AU.*),C!I) .CBU) ,CNi»),FMT, IFLASI3) ,  1FLA6I5) , IFLAc<9) , 

C  K,MM,OBJ,aUTP,PIN£P-:i),PN.VN(*),VT,«(l)  i 

C  MODIFIED:  NONE 

[  m  i  u  tt  m  it  1 1  n  1 1 1 1 1 1  it  1 1 1  it  i  m  i 

1USES  UCHECK2  IN  UNIT27.CODE  OVERLAY 
SUBROUTINE  TDISPL 

CHARACTER  VN$6.CNt6,PNl20.NNt3,FNI10,PINEEtl.Pfl,Q8JH*10 
INTEGER  ARTV, BASIC. PK,PKS, PR, PRS, OPTS, V,VT,C3,PES,OIU, DUAL, OUTP, 
.TIE.FMT.T 

COMMON/El/At2O,B0),ARTV(2O).C(60),2,INEB(2OI,iFLAS<J0>,CB(20) 

.  ,KEC,NSC,NLC,  IA,  1NDSIE,  IKDEX6.  INDEX'.,  X8I20) 
CaMM0N/E2/BASIC.K,KFA.KRS,KFSA,l<FSU.0PTS.PK.PKS.PR.PR3,V.VT,MXHN 
C0MH0N/E3/M0D,PES,GIU, DUAL, OUTP,nAB,IBTAB,IFTAB,BM, TIE, FMT 
CuMMON/E4/VM(2O),CN(2O>,PN.MH,FN,PINE6<2O),P(lO>,0BJN 
11C  FORMATS) 

IF  < IFLA6X9)  .Efi.  1 ) THEN 
C  ONLY  CONSTRAINTS  ARE  DISPLAVED 

WRITE  <2,220) PN 

120  FORMAT* H'X, A20/10X, ’CURRENT  CONSTRAINTS’/) 

ELSEIFUFLA6I9)  .£8.  0)TH£N 
C  OBJ  FUNCTION  AND  CONSTRAINTS  DISPLAYED 

HR!TE(2.230)PN,NH 

230  FORMAT* IOX,A20/7X, ’CURRENT  LP  MODEL:  ’,A3.’1MI2E  ’,$) 

IF!IFLAG*5)  .E0.  I ) THEN 
WRITE  12. 240) OBJN 
240  FORMAT (A10) 

ELSE 

NRITE*2,?50) 

250  FORMAT ( ’  ’) 

END  IF 
END  IF 

C  NUMBER  OF  8*»  * OLUMN  DISPLAYS  REQUIRED  DETERMINED 


T«(VT'5)+1 

CO  470  N*1,T  _ 

IF(!FLAS'5>  .Efi.  DTHEN 

C  VARIABLE  XAhES  PRINTED  AS  COLUMN  READERS 

HRITE!2,M13M>’> 

DO  270  J=<Nt5)-4,NI5 
IF (J  .GT.  VT1THEN 
SO  TO  270 
ENDIF 

WRITE (2,260) VN(J) 

260  FORNAT  (S.t ,  A6, 2X.  $) 

270  CONTINUE 

NRITE(2,’i”  *’)•) 

ENDIF 

NRITE(2,Mi3X,*)') 

DO  290  0«(N»5MfNM 
IF < J  .61.  VT) THEN 
SO  TO  290 
ENDIF 

WRITE (2,280) J 

280  F0R«AT(5X, ’X(’ ,12, ’) ' ,3X,*> 

290  CONTINUE 

C  IF  LAST  80  COLUMN  DISPLAY,  DISPLAY  RHS 

IF •  T  .E9.  1  .OR.  N  .Efi.  T ) THEN 
NRITE(2,300) 

300  FORNAT i6i,' RHS’) 

ELSE 

W.ITE<2,’(”  ”>’) 

ENOIF 

C  DISPLAY  IS  WITH  OBJ  FUNCTION 

IF(IFLA6<9)  .Efi-  0  .OR.  JFLA6<9)  .Efi.  2 'THEN 
NRITE(2. ' f'OBJ  FUNCTION”, JX.DM 
DO  320  J=(NI5)-4.NI5 
IF ( J  .BT.  VTJTHEN 
"0  TO  320 
ENDIF 

(FtFHT  .EO.  OTHER 
NRITEI2,’  (JPE12.5. 1M)’>C<J) 

ELSE 

WITE42,  MFi2.5,IX,i)’)C<J> 

ENDIF 

320  CONTINUE 

IF (T  .Efi.l  .OR.  N  .Efi.  T> THEN 
IF (FHT  .Efi.  0) THEN 
HRITEI2,’(”*  ”,1P£12.5,1X)’)Z 
ELSE 

WRITE (2* ’ ( ”»  ”,fl2.5, 1X)’)Z 
ENDIF 
ELSE 

HRITE<2,’ !”  ”)’) 

ENDIF 

ENDIF 


"34 


IF(IFLA6(9)  .EQ.  2) THEN 
C  BASIC  VARIABLES  ARE  TO  BE  ANNOTATED 

NRITE!2.M"CN  NAME  VAR' ' f2X, 65<* '?”)>* ) 

ELSE 

NSlTEuVC’CN  NAME' ’ ,2X. 70t ' ’ »”)>’) 

ENE1F 

C  CONSTRAINT  NUMBER.  NAME,  BASIC  VARIABLE,  COEFFICIENTS 
C  INEQUALITY,  AND  RHS  DISPLAYED 

DO  400  L=1,K 
IF (L  .ST.  K) THEN 
60  TO  400 
EN9IF 

IFUFLA6.5)  .EE.  DTHEN 
NRITEI2,’  (I2.U,A6,I)’  )L,CN(L! 

ELSE 

NPITEir,’  (12,71, $DL 
ENDIF 

IF(IFLAE<9>  ,E3.  2) THEN 
waTE;2,’ui,i:,n,»>MCB<u 
ELSE 

NRITEd,’  I4X,A>’) 

ENDIF 

DO  370  J=(NI5i-4,N»5 
IF (3  .6T.  VTUHEN 
60  TO  370 
ENDIF 

IF-FHT  .EQ.  O' THEN 
NRITE(2.,<lPE12.5,l!(,$)’)A(L.J) 

ELSE 

WRITE (2. ’ (F12.3,1X.F) ’ )A(L, 3) 

ENDIF 

370  CONTINUE 

I- <7  .EQ.  1  .OR.  N  .EQ.  T.'THEN 
lFtrNT  .EQ,  0' THEN 

WRITE  <2. ’ (Ai. IX, 1PE12.5) ; )PINEQ(L< , XB(L) 

ELSE 

»IT£i2,MAMX,n2.5)’»fINEQ«L).Wai 

ENDIF 

ELSE 

NfilTEd,’  (”  ”)'t 
ENDIF 

400  CONTINUE 

!F(IFLA6(3)  .EQ.  I) THEN 
PAUSE 

WRITE ( 2. 1 10) CHAR  *  12) 

60  TO  470 
ENDIF 

IFCUTP  .EC.  I  (THEN 
PAUSE 

4PIT£i2,IlO*CHARU2! 

ELSE 

tf.ITEd.’di 
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ENDIF 
470  C0MT1NUE 
IFLA6(3)*0 
;FLA3(9)=0 
CLOSE 'Z) 
RETL’RN 
END 
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c  t  »  I  I  I  I  I  t  I  I  t  I  I  »  I  M  *  I  t  I  I  »  M  I  I  I  I  »  »  I  I  I  I 

C  MODULE  2  UNIT26  I 

C  I 

C  SUBROUTINE  BASDI3  % 

C  USE:  DETERMINES  WHETHER  OR  NOT  CURRENT  TABLEAU  HAS  REBUESTED  TO  BE  » 

C  DISPLAYED  AND  IF  SO,  PROMTS  USER  WHETHER  OR  HOT  THE  BASIC  * 

C  SOLUTION  IS  DESIRED  TO  BE  DISPLACED  AND  ON  HNAT  DEVICE.  IF  t 

C  REBUESTED,  DISPLAYS  BASIC  VARIABLES,  NAMES  AND  VALUES  OF  » 

C  CURRENT  SOLUTION  AND  THE  OBJECTIVE  FUNCTION  VALUE.  » 

C  CALLED  BY!  SUBROUTINE  OPT  t 

C  CALLS  :  SUBROUTINE  CHECK2(P,N.N.INVAL,3NEH)  I 

C  VARIABLES!  I 

C  USED!  BASIC, C3 it). FtIT, IFLA6(5) , IFTAE. INEN, INVAL, 17AB,K,0PTS,  I 
C  PN.VNiD.XEdj.Z  » 

C  MODIFIED:  P(»)  » 

ctimmmimmnmmMmtm 

SUBROUTINE  BASD1S 

CHARACTER  VNlA. CNI6. PNI20, TIMS, FNI 1 0,  PINEfi* i , Pli . QDJNI10 
INTESER  ARTV, BASIC, PX,FHS, PR, PRS, OPTS. V,VT,CB,PES,OIU, DUAL, OUTP, 

, TIE, PUT 

C0WMN/E1/A(29,6O),AR7V(2O>.C(SO),Z,IKE3<20),IFLA6<1O),CB(20) 

. ,NEC,NSC,NLC. IA, INDEIE, INDEXS. INDCXL, 18(20) 

C'JH!1flN/E2/ BASIC,  K,KFA,KF5,KFSA.KrSU.  OPTS.  PK.PKS,  PR,  PRE,V,VT,HI(MN 
:CKN0N/:E3/H0D,bES.0IU.D'jAL,0UTP.1TAB.IBTAB,IFTAB,BN,T!E,FHT 
C0HH0N/£4/VN<20!.CN(20j.PN.«H,FU.PINEB(20),P(l»!,0BJN 
NRI’Ell. 110'CHAR!t2) 

110  FORMAT (At 

C  DETERMINES  IF  USER  HAS  SELECTED  TABLEAU  FOR  OUTPUT 

150  IF ( BASIC  .ED.  1  .AND.  ITA8  ,NE.  1 ) THEN 

3ETURN 

ELSE  IF 'BASIC  ,NE.  1  .AND.  OPTS  ,NE.  I  .AND,  IBTAB  .EB.  0  -  THEM 
RETURN 

tLSEIF (QPTS  ,E9.  1  .AND.  IFTAB  .SB.  2) THEN 
RETURN 
ENOIF 

HRITE(l,llO)CHAR(i2) 

C  USES  INPUTS  SELECTION  OF  OUTPUT  DEVICE,  IF  ANY 

NR!TEtl.’(4(/),”N0ULB  YOU  LIKE  THE  BASIC  SOLUTION  VALUES”/14X, 
."DISPLAYED?  ”>’t 

NRI1E(1,'(/9X,"1.  DISPLAY  ON  SCREEN” //9X,” 2.  DISPLAY  ON  PRINTER 
91, ”3.  DO  NOT  DISPLAY”)’; 

200  WPITE(i,!  !//13X, ’’WHICH  OPTIONS  ”,♦)’> 

R£AD(5.  (A1)')P?I) 

CALL  CHECK2(P. 1,3, iNVAL, INEN) 

IF  (INVAL  .EB.  DTHEN 
HRITEU.230I 

230  F0RMAT(/5X,’ INVALID  ENTRY,  PLEASE  REENTER’) 

SO  TO  200 
EHDJF 

IF (INEN  .EB,  1  *  THEN 
0PEN(2,F1LE*'C0NS0LE:’> 

ELSEIFdNEN  .ES.  2)  THEN 


r 


0P£N(2,F1LE*’PRINTER: ’ ) 

ELSE 

RETURN 

ENDIF 

WRITE  41,110) CHAR ( 12> 

WRITE (2, ' ( I0X , A20/I0X. ' 'BASIC  SOLUTION  »’ ',12, /)'>PN, BASIC 
IFilFLAG(S)  .EQ.  I ) THEN 
DO  250  1*1, K 
IFIFHT  .EQ.  01  THEN 

NR!T£<2,M5X,A6,”  *  X(”fi2,”)  *  ”,1PE12.5)’;VN(CB(I)), 
.CBID.XBC) 

ELSE 

NRITE'2, ’ (5X,A6,”  *  X<’\12,”>  *  ”,F12.5)’)VN(CBII)), 
.CB(I),WiI) 

ENl'IF 

250  CONTINUE 

IFfFNT  .£6.  0) THEN 
t»RITE<2,’(/18X.:,Z*  'MPE12.5)’)Z 
ELSE 

W!TE(2,M/18X.”Z*  ”,F!2.5)’)Z 
ENDIF 
ELSE 

DO  280  1*1,  K 
IF (FMT  .EQ.  0) THEN 

NRJTEI2,’  (10X,”X(”.I2,  ”)  *  ”,1PE12.5)’)CB(I),XB(I) 

ELSE 

NRITE(2,M10X,”XI’‘,I2,”>  *  ”,FI2.5»’>CB<n,X8U> 

ENDIF 

280  CONTINUE 

IF (PUT  .EQ.  0) THEN 
NRITEI2,’ I/UX,”Z  *  ”,1PE12.S>MZ 
ELSE 

NRITE(2,M/14X,”Z  *  :’,F12.5)’)Z 
ENDIF 
ENDIF 

IF < INEN  .EQ.  2) THEN 
NRITE<2,’(6(/»’< 

ELSE 

PAUSE 

ENDIF 

RETURN 

END 
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c  1 1 1 1 1 1 1 1 1  » i  »  «  i  i  1 1 1  1 1  *  1 1 1  1 1 1  it  * »  *  » i 

C  NODULE  2  UNIT27 
C  UNIT  WJSE5:  NONE 
C 

C  SUBROUTINE  CKECK2 (E,Of HVAL,  1NVAL. INEN) 

£  USE:  SEE  NODULE  1,  UNITE? 

C  CALLED  BY:  SUBROUTINE  BASDIS 

C  SUBROUTINE  CRHDU 

C  SUBROUTINE  CBNDU 

C  SUBROUTINE  OPTION 

C  SUBROUTINE  PIVOT 

C  SUBROUTINE  READY 

C  CALLS  :  NONE 
C  VARIABLES:  SEE  NODULE  1.  UNITI7 

ctitttttYtittttttttttttittttttttttt 

SUBROUTINE  CHE£K2(E.D,HVALf 1NVAL. INEN) 

CHARACTER  ALLOM1.EU 
DIMENSION  E < 10) , ALLOW (11) 

INTESER  D, HVAL 

DATA  taWtl'  V  ,'2' ,’V V  ,"5' 6'  ,'7'  ,'V  ,'V d' ’! 

IH£N=0 
INVALID 
DO  300  1*1,  D 
DO  200  1*1,10 

C  CHECKS  FIRST  FOR  BLANK  CHARACTERS 

IF(E(I!  .ED.  ALLOUC 11 > > THEN 
GO  TO  390 

ELSE IF (Eli)  .ED.  ALLOW! J) ) THEN 
INEN«INENI10  ♦  (ICHARtE(I))-48) 

GO  TO  300 

EL5EIHJ  .ED.  10) THEN 
INVAL*1 
1NEN=0 
RETURN 
END  IF 

200  CONTINUE 
300  CCNTINUE 

IF  1 1  NEW  .ED.  0  .OR.  INEH  ,6T.  HVAL /THEN 
INVAL*! 

INEN*0 

RETURN 

END1F 

RETURN 

END 
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c  «  t  »  I  i  I  I  I  I  I  I  I  I  «  I  *  I  I  I  t  I  *  I  M  I  I  I  I  I  t  t  I  I 

C  NODULE  3  UNIT30 
C  UNIT  (USES:  UNIT32  THRU  UNIT” 

C 

C  PRQSRAH  PRODS 

C  USE:  MAIN  PROGRAM  GF  NODULE  3.  PURPOSE  OF  NODULE  IS  TO  PROVIDE  A 
C  MEANS  OF  SOLVING  LINEAR  PRQGRAHH1N6  PROBLEM  IK  THE  MOST 
C  EFFICIENT  SIMPLEX  METHOD.  THIS  MODULE  ALLONS  THE  USER  TO 
C  SPECIFY  THE  PRIMAL  OR  DUAL  PROBLEM,  AND  FURTHER,  PRIMAL  OR 
C  DUAL  SIMPLEX  APPLICATION  TO  THE  SELECTED  PROBLEM.  SELECTED 

C  DISPLAY  OF  OUTPUT  ALLONS  USER  TO  LIMIT  OUTPUT  TO  THAT 

C  REQUIRED.  MODULE  3  CONSISTS  OF  7  SEPARATELY  COMPILED  UNITS 

C  CJNIT30,  UNIT32  THRU  UNiT37!  WITH  ALL  UNITS  EXCEPT  UNITO 
C  BEING  OVERLAY  UNITS. 

C  PROGRAM  PRODS  ACTS  AS  A  MEMORY  RELEASE  LOCATION.  HHENEVER 
C  THE  PROGRAM  CONTROL  RETURNS  TO  THIS  UNIT.  ALL  OVERLAY  UNITS 

C  ARE  RELEASED  FROM  MEMORY  PRIOR  TO  NEW  UNITS  BEINS  SUMMONED. 

C  CALLED  BY:  NONE 
C  CALLS  :  SUBROUTINE  ACNCH 

C  SUBROUTINE  ASKS (ASK) 

C  SUBROUTINE  SIGN 

C  SUBROUTINE  CCNVRT 

C  SUBROUTINE  INDE* 

C  SUBROUTINE  1NRD 

C  SUBROUTINE  HQDIFD 

C  SUBROUTINE  MGDIFP 

C  SUBROUTINE  OPTS 

C  SUBROUTINE  QPTN 

C  SUBROUTINE  PSHED 

C  SUBROUTINE  TDI8PL 

C  SUBROUTINE  NORK 

C  VARIABLES: 

C  USED:  ASK , BN, DUAL . IFLA6 ( 7 > , IFl A6  <9 ) . KFA , NEC , NSC , PRGBT , VT 
C  MODIFIED:  SASIC, C!l) 

r  t 1  * «  m  i  $ » 1 t 1 1 1 1  *  i » i i  m  i *  $  1 1 t 1 1  *  i 1  * 

(USES  UCHECK2  IN  UNIT37.C0DE  OVERLAY 
(USES  UTDISPL  IN  UNIT36.C0DE  OVERLAY 
(USES  UPSHEO  IN  0NIT35.C0DE  OVERLAY 
(USES  UCQNVRT  IN  UNIT34.CQDE  OVERLAY 
(USES  UNGRK  IN  UNIT33.C0DE  OVERLAY 
(USES  UOPTN  IN  UNIT32.C0DE  OVERLAY 
PROGRAM  PROBS 

CHARACTER  VHI6, CNU, PKI20, MMI3, FNI  1C, P INEG(  1 . P ( 10)  ( I , QBJNI 10 
INTEGER  ARTV, BASIC, ?K, PR, OPTS, V,VT,CB, DUAL, GUTP,FNT,PR08T, ASK 
C0MM0N7Pt/Ai20.60).ARTVi2f),C(60).:.INEC(20),IFLA6U0’,CB(20l, 

. XBi 20), K,V,VT,MXHN. BASIC, OPTS, BM 

C3HM0N/P2/NEC,NGC.NLC.IA,lNDEXE.INDcX6,INDE<L,KFA,KFS,KFSA,KFSU, 
.PK. PR 

C0NNQN/P3/PUAL.QUTP, JTA8.!ETftB,IFTAB,FHT,PR08T 
C0MM0N/P4/VH(:0I,CN(20!,PN.MN.FN,PINEQ!20),0BJN 
OPEN  i  1 , F I LE* ’ CONSOLE : ’ l 
OPEN ( 5 . F I LE« ’ CONSOLE : ’ ) 
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HR1TEU.110>CHAR(12> 

110  FORMAT  I A) 

CAU  PSHED 

C  ROUTINE  CALLED  WHICH  ALLOWS  USER  TP  CHAN6E  DEFAULTS 
120  CALL  OPTN 
BASIC-0 

IF<PROBT  ,E0.  1  .AND.  DUAL  .ED.  WHEN 
C  USEP  HAS  ELECTED  TO  SOLVE  PRINAL  PROBLEH  WITHOUT  DUAL  PIVOTS 
60  TO  140 

ELSEIFIPROBI  .ED.  2) THEN 
C  USER  HAS  ELECTED  TO  SOLVE  DUAL  PROBLEH 
CALL  CONVRT 
ENDIF 

iFIDUAL  .ED.  2) THEN 

C  USER  HAS  ELECTED  TO  USE  DUAL  PIVOTS 
CALL  ACNCH 
ENDIF 

C  ROUTINE  CALLED  WHICH  INITIALIZES  VARIABLES  AND  F.EADS  MODEL 
140  CALL  INRO 

IF (DUAL  .ED.  1 ) THEN 

C  OBJ  FUNCTION  MODIFIED  FOR  PRINAL  PROBLEH 
CALL  HGDIFP 
ELSE 

C  OBJ  FUNCTION  MODIFIED  FOR  DUAL  PROBLEH 
CALL  NODIFD 
ENDIF 

C  ROUTINE  CALLED  WHICH  ADDS  SLACK, SURPLUS.  AND  ARTIFICAL  VARIABLES 
CALL  INDEX 
DO  160  j=KFA,VT 
ClJ.i-BH 
160  CONTINUE 

C  CHECKS  IF  ARTIFICAL  VARIABLES  HAVE  BEEN  ADDED 
!F( (NEC+N6C)  .NE.  OTHEN 
CALL  BI6H 
ENDIF 

170  BASIC=8AS!C*l 
CALL  OPTS 

IFUFLA6-9)  .ED.  WHEN 

C  FLAB  INDICATES  TABLEAU  IS  TO  BE  DISPLAYED 
CALL  TDISPL 
ENDIF 

IFdOPTS  .ED.  1)  .OR.  UFLAGI7)  .ED.  1WHEN 
C  LAST  TABLEAU  EITHER  OPTIMAL  OR  UNBOUNDED 
CALL  ASKS < ASK! 

IF  'ASK  .EQ.  1 ) THEN 
60  TO  120 
ENDIF 
ENDIF 
CALL  WORK 
60  TO  170 
STCP 
END 
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C  i  *  i » i  x  1 1  t  *  »  $  i  i  ♦  i  i  »  i  t  »  »  i  >  t  *  i  i  *  i  t  i  t  *  i 
C  NODULE  3  UNIT32  I 

C  UNIT  (USES:  UNIT37  t 

C  » 

C  SUBROUTINE  QPTN  t 

C  USE:  DISPLAYS  DEFAULT  OPTION  VALUES  AND  SOLICITS  RESPONSE  TO  I 

C  CHANGE  THESE  DEFAULTS.  IF  OPTION  IS  SELECTED  TO  BE  CHANGED,  I 

C  USER  REVIENS  NENU  AND  SELECTS  DESIRED  METHOD,  THEN  IS  I 

C  RETURNED  TO  DEFAULT  OPTION  DISPLAY.  SONE  OPTIONS  ARE  CHANGED  t 

C  UPON  SELECTION  DUE  TO  ONLY  TWO  METHODS  BEING  POSSIBLE.  I 

C  OPTIONS  ARE  RESET  TO  PROGRANNER  SPECIFIED  DEFAULT  UPON  EACH  t 

C  CALL  TO  ROUTINE.  t 

C  CALLED  BY:  PROGRAM  PROBS  I 

C  CALLS  :  SUBROUTINE  CHECK2<P,N,«,INVAL.iNENi  I 

C  VARIABLES:  t 

C  USED*.  IKEH.1HUAL  t 

C  MODIFIED:  DUAL, FNT,FN,I8TAB,!FTAB.ITAB, QIJTP, PN.PROBT  I 

C  I  I  I  I  I  $  I  I  *  t  I  I  *  I  I  t  I  t  t  *  I  «  I  I  I  *  »  Y  I  I  t  I  II  » 

♦USES  UCHECK2  IN  UN1T37.C0DE  OVERLAY 

SUBROUTINE  OPTN 

CHARACTER  VN»6,CN»6,PN»20.NMI3,fNllO,PINE0ll,P(10m,0BDN»lO 
INTEGER  ARTV, BASIC, PK, PR, OPTS, V,VT,CB. DUAL, OUTP,FMT,PRCBT 
C0HKIN/P3  y  DUAL , OUTP , I TftB , I BT AB, I F  T  AB . FHT , PROBT 
CQHNON/P4/VN(2O),CN(20),PN,KN,FN, PINES !?0),0BvN 
tOO  NRITEfl,  llOCHARf  12) 

110  FORMAT (A) 

WRITEil,’ (lit/), IX, ’’INSURE  DISK  IP!  IS  AVAILABLE.”. 7</)>’) 
PAUSE 

WRITE  1 1 . 1 10CHAR  <  12) 

WRITEil, 130) 

130  FORMAT (41. 'PROBLEM  SOLVER  OPTION  SELECTION’/) 

C  TRANSFER  FILE  OPENED  AND  FILE  NAME  READ 

OPEN (3. FILE8’ LP1 : LPDATA’ ,STATUS=’ OLD' ,FORH=’  UNFORMATTED’ ) 

READQFN 

CLOSE >3, STATUS8’ KEEP’) 

150  WRITE < 1, ’ < ’ ’THE  PROBLEM  CURRENTLY  IDENTIFIED  AS  THE” /7X, ’’PROBLEM 
.  TO  BE  STUDIED  ISt”//tSX,A10)’)FN 
WRITEil, ’ <//’ 'IS  THIS  THE  PROBLEM  YOU  DESIRE  TO  STUDY? 

READI5.’  (AP’JPU) 

1F<ICHAR<P<1T )  .EO.  78) THEN 

WRITEil, ’(.711, ’’PLEASE  ENTER  THE  DISK  DRIVE  TOER  AND’ ’ / ” FILE 
.  NAME  OF  THE  FILE  YOU  NISH  TO  STUDY.” //IX.” (INSURE  THIS  IS  ENTER 
.ED  EXACTLY  AS  IT”)’) 

NRITEfl, MIX, ’’HAS  SAVED  PREVIOUSLY  AND  ALSO  THAT  THE”/2X,’  PRO 
.PER  DISK  IS  IN  THE  PROPER  DRIVE.)”)’) 

NRITEfl, MM)!, -’MODEL  TO  BE  STUDIED  8  ”.♦)’) 

R£AD<5,MA10)’)FN 
160  NRITEfl, I BC) 

180  FGP.MAT(/7X,’ARE  CORRECTIONS  NEEDED?  ’,♦! 

READ<5,’*'A1)’>P<1) 

IFflCHARfPf 1>)  .ES.  89) THEN 
60  TO  100 


EL3EIF(ICHAR(P<1)>  .NE.  78) THEN 
WRITE! 1.190) 

190  F0R!MT(/«V  INVALID  EMTRY,  PLEASE  REENTER’/) 

PAUSE 
60  TO  160 
EDO  IF 

WRITE (1,1 10) CHAR  112) 

WRITEd, M1H/), II, ’’INSURE  DISK  LP1  IS  AVAILABLE. ”,7(/t 

.)’) 

PAUSE 

C  TRANSFER  FILE  REWRITTEN  TO  INDICATE  NEW  USER  MODEL  SELECTION 
OPEN (3, F !LE«’ LF1 sLPDATA’ , STATUS*' OLD’ , FORK*’ UNFORMATTED’ ) 
WR1TE(3!FN 

CLOSE  13, STATUS*’ KEEP ’ ) 

ELSElFJICHARlPd))  ,NE.  S9)TH£N 
WRITE ( i . 190) 

PAUSE 
GO  TO  100 
END  IF 

WRITE (1,1 10) CHAR (12) 

WRITEd.’ (IK/). II. ’’INSURE  DISK  LP2  IS  AVAILABLE.”, 71/))’) 
PAUSE 

C  DEFAULT  OPTIONS  SET 

PR08T=1 
DUAL-1 
OUTP=! 

FHT»1 

•TAB=1 

IBTAB-1 

IFTABd 

200  WRITE (1,1 10) CHARI 12) 

C  DEFAULT  OFTIONS  DISPLAYED 

WRiTEIl,’  (121, ’’DEFAULT  0PTI3NS” /5N ENTER  OPTION  NUMBER  TO  CHAN 

,6E”'V) 

WRITEd,’ i”l.  PROBLEM  TO  SOLVE”, 111, ♦)’) 

IFiPROBi  ,EB.  DTHEN 
WRITEd, ’HI.  ’’PRIMAL”)’) 

ELSE 

WRITEd,’ (6X, ’’DUAL”)’) 

END  IF 

WRITEd. ’(/, ”2,  SOLVE  BY  DUAL  PIVOTS”, !6.<, II’ ) 

IF  (DUAL  .EB.  DTHEN 
WRITEd,  ’  (”N”f’J 
ELSE 

WRITEd, '(”>”'>’) 

FNDIF 

WRITEd. ’(/, ”3.  OUTPUT  ’.OCATICN’ ’ ,  12S.*) ’ ) 

IF (OUTP  .EB.  DTHEN 
WRITEd,’ <4X,”  SCREEN”)’) 

ELSE 

WRITEd,  ’  (3X,  ’’PRINTER”)’) 

END  IF 
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WITEil,’(/,”4.  OUTPUT  FOiWAT” , t6X,» ’ ) 

1F(FMT  .EB.  1 >  THEN 
HR1TE41, ' <”F  FORMAT’')’) 

ELSE 

RRITE<  1, ’ ( ”E  FORMAT”)’) 

ENOIF 

NRI!E(l,’*/,”5.  TABLEAUS  TO  BE  DISPLAYED”, /6X, ’’INITIAL”, 26X,» 
.>’) 

IFUTA8  .EB.  DTHEN 
NBITEH,’(”Y”)’> 

ELSE 

WiTEU,' 

ENDIF 

NRITEd,’  (6X,”  INTERMEDIATE”.  16X,”N  *  ”,12I’)IBTAB 
NRITEil,’  (6X. ’’FINAL”, 28X,4.*’) 

IFdFTAB  .EB.  DTHEN 
KRlTEd.’C’Y’V) 

ELSE 

NWTEU.’C’N”)') 

ENDIF 

RRlTEd,’(/,”6.  NO  CHANGES’  ’ //”  *  SEE  DOCUMENTATION  FOR  EXPLANATI 
.ON”/)’) 

HRITEIl,’ <&X. ’ ’WHICH  OPTION  (ENTER  1*6)  ?  ”,♦>’) 

READ(5, ’(AD’)P(D 
CALL  CHECK2(P, 1,6, INVAL. INERT 
If'INVAL  .EB.  DTHEN 
NR1TED.190) 

PAUSE 
SO  TO  200 
ENDIF 

SOTO (230. 260,290, <30. 350, 460) INEN 
C  PROBLEM  TYPE  TO  BE  SOLVED  CHAN6ED 
230  IF  (PROBT  .Efi.  DTHEN 
PR0BT*2 
ELSE 
PROBT* 1 
ENDIF 
60  TO  200 

C  DUAL  PIVOT  OPTION  CHANGED 

260  IF  (DUAL  .EB.  DTHEN 
DUAL-2 
ELSE 
DUAL-1 
ENDIF 
SO  TO  200 

C  OUTPUT  LOCATION  CHANGED 

290  IF'OUTP  .EB.  DTHEN 
OUTP-2 
ELSE 
GUTP-l 
ENDIF 
80  TO  200 
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C  TABLEAU  OUTPUT  OPTIONS  DISPLAYED 
350  MR1TE ( 1 y 1 10) CHAR (12) 

KRITEt 1,130) 

NRITEd,'  (’’NH1CH  TABLEAUS  WOULD  YOU  LIKE  DISPLAYED?”)’) 

370  NRlTEil, M/51,  ’’INITIAL  TABLEAU?  (Y/N)  ”,»)’) 

READ(5,MAI)’)Pd) 

IFdCHAR(Pd) )  .EG.  89) THEN 
ITAEwl 

ELSEIFdCHAR'.Pdi)  .EB.  78) THEN 
ITAB*2 
ELSE 

WRITEt 1,190) 

SO  TO  370 
ENDIF 

390  NSITEtl,’ t/5X,” INTERMEDIATE  TABLEAUS?  (Y/N)  ”,«»’} 
READ(5,’(A1)MP(1) 

IFdCHAR(Pd))  .EB.  89) THEN 

HRITE(1,'</, ’’EVERY  N(TH>  INTERMEDIATE  TABLEAU  HILL  BE”/15X, 
.’’DISPLAYED.”)’) 

400  WRITE (1. ’ </4X, ’ "WHAT  VALUE  DO  YOU  DESIRE  FOR  N?’7/!7X,”N  =  1 

..$)’) 

READ'V  :2Al)’)Pd),P(2) 

CALL  CHECK2(P,2,99, IHVAL, INEW) 

IFilNVAL  .EB.  1)THEN 
NRITE (1,190) 

PAUSE 
SO  TO  MO 
ENDIF 
IBTAE«INEN 

ELSEIF i ICHAR(P(1) )  .EB.  78) THEN 
1BTAB=0 
ELSE 

WRITE ( 1 . 190) 

60  TO  390 
ENDIF 

410  NRITEd, M/5X, ’’FINAL  TABLEAU?  (Y/N)  ”.»)’) 

READ(5,'(A1)’!P(1) 

IF(ICHAR(P(1))  .EB.  89) THEN 
IFTAB*1 

ELSEIF (ICHAR(Pd))  .EB.  78) THEN 
IFTAB*2 
ELSE 

NR1TE<1,190) 

60  TO  410 
ENDIF 
SO  TO  200 

C  OUTPUT  FORMAT  CHANGED 

430  IF  (FRIT  .EB.  DTHEN 

FHT*0 
ELSE 
FHT«1 
ENDIF 
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460 


SC  TO  200 

KTUfiH 

END 


C  I  t  I  M  (  t  |  t  (  t  I  t  t  I  I  I  t  t  t  t  t  I  I  t  t  t  t  I  I  I  t  t  t 

C  MODULE  3  UNIT33 
C  UK IT  (USES;  NONE 
C 

C  SUBROUTINE  WORK 

C  USE:  SEE  NODULE  2,  UNIT24,  SUBROUTINE  WORK 
C  CALLED  BY:  PRQ6RAN  PROBS 
C  CALLS  :  NONE 

C  VARIABLES:  SEE  NODULE  2.  UN1T24,  SUBROUTINE  WORK 

c  t i i t i t i i i t i i i t  i  i n  i  i  i  t  ii  i  i  i  i  i  t  i  i  i  i 

SUBROUTINE  NORK 

INTEGER  ARTV, BASIC, PK, PR, OPTS, V.VT.CP 

C0NN0N/Pl/A>20,t0) ,ARTV(20>,C(6Q) ,Z,1NE3:23) , !FLA6(10I,CP(20>, 

•  KB  (20)  ,K,V,VT,NJ(NN,  BASIC,  OPTS,  BN 

C0NH0N/P2/N£C,N6C,HLC, IA, INDEKE, INDEX6, IN0E3L,KFA,KFS,KF5A,KFSU, 
,PK,PR 

PELE*A<PR,PK) 

DO  200  J*1,VT 
A(PRJ)*A!PK,J)/PELE 
200  CONTINUE 

*8<FPK<6(PR)/PELE 
CB  <PR>— PK 
30  300  1*1, K 
IF ( I  .Efi.  PRITHEN 
SO  TO  300 
END  IF 

HOLC=A(I,FK? 

30  250  i=\,VT 
A(I.J)*A(3,J/-HCLD»A(PR,J) 

250  CONTINUE 

j(B  ( I )  *)!8  ( I  >  -HOLDDiB  ( PR  I 
300  CONTINUE 
HOLD=C:PK> 

CO  350  0=1, VT 
C(J/*CIJ>-HOLD»A(PR,J) 

350  CONTINUE 

Z=Z-HOLDBXB(PR) 

RETURN 

END 
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c  <  I  «  (I  I  »  «  I  I  *  I  I  t  I  I  t  I  t  I  M  I  I  I  t  I  I  I  I  »  I  »  t 

C  NODULE  3  UNIT33 
C 

C  SUBROUTINE  OPTB 

C  USE:  DETERMINES  THE  PIVOT  COLUMN  AND  PIVOT  RON  FOR  BOTH  PRIMAL  AND 
C  DUAL  SIMPLE)!  PROCEDURES,  DEPENDENT  ON  OPTION  SELECTION. 

C  DETERMINES  AND  SETS  FLA6S  ACC0RDIN6  TO  THE  FEASIBILITY. 

C  OPTIMALITY,  UNBOUNDEDNESS  AND  DEGENERACY  OF  THE  CURRENT 

C  SOLUTION.  DEPENDENT  ON  USER  SELECTION  OF  TABLEAU  OUTPUT, 

C  DISPLAYS  TABLEAU  HEADER  ON  SELECTED  OUTPUT  DEVICE. 

C  CALLED  BY:  PROGRAM  PROB5 
C  CALLS  :  NONE 
C  VARIABLES: 

C  USED:  Alt, t) .BASIC, Cl*) ,CB(») .DUAL. IBTA3, IF7AS,ITAB,X,KFA,PN, 
:  VT.XBU) 

C  MODIFIED:  6NEG. ! FLAG <4! ,  IFl.AGfii ,  IFLAGOi ,  IFlAB‘8)  ,  IFLA6»9) ,  INFP, 
C  OPTS, PK, PR, SPR 

C  I  I  I  1  It  I  I  t  I  I  !  It  I  I  t  t  I  t  I  I  H  I  I  I  !  t  I  I  t  t  I 

SUBROUTINE  OPTB 

CHARACTER  VNI6,CNIf',PN»20,MMI3,FN>iO.PINEBtl.P(10)li.OBJNtlO 
INTEGER  ARTV, BASIC, PK, PR. OPTS, V, VT, CB. DUAL, OUTp, FMT, PROBT 
C0MHGH/Pl/Ai2C,60),ARTVi2(O,CI60)f2,INE2(20),IFLAG'K,),CB(20), 

. XB<20) ,K,V,VT,MXMN. BASIC, OPTS, BN 

C0MMGN/P2/NEC.N6C,KU.C, IA, INDEXE, INDEX6, INDEXL, KFfl, KFS.KFSft,KFSU, 
.PK,PR 

CGMM0N/P3/DUAL, OUTP, ITAB. IBTAB, IFTAB, FMT, PROBT 

COMMON /P* / VN ( 20 ) , CN ( 29 ) , PN , MM , FN , P 1 NEB ( 20 ) , GB J  N 

IFLA6  <  4) -0 

I FLAS  f 6> -0 

INFP=0 

SHE5*0,'T 

IF (DUAL  ,E3.  2) THEN 

C  USER  HAS  ELECTED  TO  PERFORM  DUAL  PIVOTS 
SO  TO  300 
EHDIF 

C  F.NDS  LARGEST  2 (J)-C(J) 

110  DO  130  3*1. VT 

iF(C!JI  .SE.  SNE6? THEN 
GO  TO  130 
ELSE 

GNE6*C(Ji 
PK*J 
ENDIF 
1*0  CONTINUE 

lF'BNEG  .ST.  -.0001 ’THEN 
C  NO  NESATIVE  2(J)-C(J)  EXIST  SO  OPTIMAL 
CPT5M 
ENDIF 

C  CHECKS  FOR  INFEASIBILITY 

DO  150  1*1, V 
1FICBU)  .LT.  KFA'THEN 
IFXXBXD  .LT.  0.0) THEN 
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INFP*1 

ENDIF 

ELSEIFUBII)  .LE.  0.01THEN 
60  TO  ISO 
ELSE 
INFP*1 
ENDIF 

150  CONTINUE 

IF  (OPTS  .Ed.  OH  HEN 

C  PREVIOUS  SOLUTION  NOT  OPTIMAL  SO  FIND  PIVOT  RON 
SPfi*10.E8 
DO  190  1*1, K 

IF(AUfPK)  .LE.  .0001) THEN 
60  TO  190 

ELSEIF ( (NB< 1> /All ,PK> )  .EE.  SPR)THEN 
GO  TO  190 
ELSE 

SPR-XB<I)/AU,PKi 
PR*  I 
ENDIF 

190  CONTINUE 

C  CHEWS  FOR  UNBOUNDEDNESS 

IF  OPR  .BE.  10. £6) THEN 
IFLAG(7l=l 
ENDIF 
ENDIF 
SO  TO  500 

C  DUAL  PIVOT  CALCULATIONS  PERFORMED 
300  00  320  1*1, VT 

IFfC'D)  ,LT.  0.0) THEN 
80  TO  110 
ENDIF 

320  CONTINUE 

DO  340  1*1, K 
IFUBil)  .BE.  BNEB) THEN 
60  TO  340 
ELSE 

8N£6*XB(I) 

PR*  I 
EHDIF 
340  CONTINUE 

IF  i6NE6  .EQ.  0.0 WHEN 
OPTS* l 
60  TO  500 
ELSE 

SPF*-10.EB 
DC  370  J*1,VT 
DO  360  1*1,  X 
IFiCB(I)  .EQ.  THEM 
60  TO  370 
ENDIF 

360  CONTINUE 
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IFWPM)  ,6E.  -.OOQDTHEN 
SO  TO  370 

EISEIF((C(J)/A(PR,J))  ,LE.  SPR) THEN 
SO  TO  370 
ELSE 

SPR=CiJ>/A<PR,  J) 

PK=J 

EHD1F 

370  CONTINL^ 

EJ4D1F 

IF  (SPR  .LE.  -10.  ESTHER 
IFLAG(7i*l 
EHDIF 

500  IF (OPTS  .EB.  1 ) THEN 
IFilNFP  .Efl.  1 ) THEN 
50  TO  600 
ENDIF 

C  CHECKS  FOR  MULTIPLE  OPTIMAL  SOLUTIONS 

OG  540  J=1,VT 
IFLAS(S)=0 
00  520  1=1, K 
IF(C6(I)  ,E9.  J ) THEN 
IFLA6(B)=1 
ENDIF 

520  CONTINUE 

IF(IFLA3!8)  ,E8.  0) THEN 

1F(C(J!  .LT.  .0001  .AND.  C(J)  .6T.  -.0001) THEN 
IFLA6(4)=1 
ENDIF 
ENDIF 

540  CONTINUE 
ENDIF 

IF < IFLA6  (7)  .EB.  WHEN 
sa  TO  600 
ENDIF 

C  CHECKS  FOR  DEGENERACY 

DC  560  1=1,  K 

IFUfi(I)  .6E.  -.0001  .AND.  XB(I)  , LE.  .0001) THEN 
IFLAfi (6>=1 
ENDIF 
560  CONTINUE 

C  DETERMINES  IF  PRESENT  SCLUTION  TO  BE  DISPLAYED 

600  IF (BASIC  .EB.  1  .AND.  ITaB  .£8.  ! I  THEN 

Ml  TO  700 

ELSEIF (BASIC  .NE.  I) THEN 
IF (OPTS  .EQ.  0  .AND.  JSTAB  .NE.  0) THEN 
IF l! (FLOAT (BASIC-1)'/ (FLOAT < 1BTAB) ) >  .EB.  FLOAT ((BASIC-1)/ 
. I 8TAB)) THEN 

GO  TO  700 
ElSE 

IFLA5<9)*0 

RETURN 


ENDIF 

ELSEIF (OPTS  .EB.  1  .AND.  IrTAB  .EQ.  DIHEN 
SO  TC  700 

ELSEIF (IFLA6(7)  .EQ.  1  .AND.  1FTAB  .EQ.  l'THEN 
SO  TO  700 
ENDJF 
EN01F 
JFLA8(9)*0 
RETURN 

C  PROPER  OUTPUT  DEVICE  OPENED  AND  TABLEAU  HEADER  DISPLAYED 
700  IFIOUTP  .EQ.  I) THEN 

QPEN(2,FiL£=’C0NSQLEi’) 

WRITE (2, ’ (A) ’ ) CHAR (12) 

ELSE 

GPEN(2,FILE=’ PRINTER:’) 

ENDIF 

NRITE!2,’ (I0X.A20/10X, ’’BASIC  SOLUTION  l”,12)’)PN,BASIC 
IF  (OPTS  .ES.  1  .OR.  IFLAB(7)  .EQ.  DTHEN 
HRITE(2,’ (10X, ’’FINAL  TABLEAU  -  ”,♦)’) 

!F(INF?  .EQ.  DTHEN 
WRITE  (2,’  i: ’’INFEASIBLE”)’) 

ElSEIF <  1FLAB<7)  .EB.  DTHEN 
NRITEI2,’  (’’UNBOUNDED”)’) 

ELSE 

NR1TE(2,’ (’’OPTIMAL”)’ i 
ENDIF 

IFilFLAS(i)  .EB.  DTHEN 
MRITE(2. ’ (261, ’’DEGENERATE’ ’ ! ’ ) 

ENITF 

ENDIF 

Ir'OPTS  .EB.  I  .AND.  IFLAG(4)  .EQ.  DTHEN 
NRITE(2.M5I, ’’MULTIPLE  OPTIMAL  SOLUTIONS  EXIST”)’) 
ENDIF 

WRITE (2, ’(/)’) 

IFIAG<9(=1 

RETURN 

END 
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C  t  I  I  I  t  I  *  *  I  I  I  I  I  I  I  I  I  »  »  I  I  t  *  I  M  *  »  t  »  *  $  I  I  I 
C  NODULE  3  UNIT34  I 

C  UNIT  (USES;  NONE  » 

C  I 

C  SUBROUTINE  CCNVRT  t 

C  USE:  DEPENDENT  ON  USER  OPTION  SELECTION,  CONVERTS  THE  PRIMAL  I 

C  PROBLEM  INTO  ITS  DUAL  PROBLEM  AND  ADDS  THE  NEEDED  VARIABLES  t 

C  TO  ALLOW  FOR  VARIABLES  WHICH  ARE  UNCONSTRAINED.  USER  IS  I 

C  INFORMED  OF  ADDED  VARIABLES  AND  THEIR  ASSOCIATION  NITH  * 

C  PRESENT  VARIABLES.  REWRITES  DATA  FILE  WHICH  CORRESPONDS  TO  I 

C  DUAL  PROBLEM.  t 

C  CALLED  BY:  PROSPAM  PROBS  I 

C  CALLS  :  SUBROUTINE  INRD  t 

C  SUBROUTINE  NFILE(M)  I 

C  VARIABLES:  t 

C  USED:  C(I),IFLA8'1)  THRU  IFLABUOJXOFON.V  I 

C  MODIFIED:  A(l,l),CN(t),C2(ti.I£.INE0U),i(2)MR,M*MN.N.NEC.N6C,NLC,  * 

C  P!NEB(l),VN2<*),V2,X8(t)  I 

CttttttttttttttMtttttltltttttlttttt 
SUBROUTINE  CQNVRT 

CHARACTER  VNI6,CNt6,PNI20,MHl!3,FNI10,PINEDtl,PiIO)»1.0EJNtlO,VN2*B 
1NTEBER  ARTV, BASIC, PR, PR, OPTS, V, VI, CB, DUAL, QUTP,FNT,PROBT,V2,K2 
COMHON/P 1  /ft  <  20, 60) ,  ARTV  <  20)  ,C(60) ,  2,  IN£Q(20) .  IFLABUO)  ,CBI20) , 

.  XB(20),K.V,VT, NXHN, BASIC, OPTS, BH 

COHNON/PI/NEC. NSC. HLC, ! A, INDEXE, INDEX6, INDE/L. KFA, KFS.  KF  SA,  KFSU, 
.PK.PR 

C3MN0N/P4/VN  (20) ,  CN  (10) .  PN.  MM.  FN.  PINED  (20) .  OB  JN 
DIMENSION  C2(2O),VN2(20) 

C  ROUTINE  CALLED  WHICH  INITIALIZES  VARIABLES  AND  READS  MODEL 
CALL  INRD 

IF'MXMN  ,E6.  1 ) THEN 

C  PROBLEM  STATED  AS  A  MAXIMIZATION  PROBLEM 
DC  110  1*1, K 
IF(INEBII)  .ED.  DTHEN 
DO  100  J*1,V 
A(I,J)=-A(1.J)  - 
100  CONTINUE 

XB(I)*-XB(1) 

ENDIF 

110  CONTINUE 

ELSE 

BO  130  1*1. K 
!F!:NED(I)  ,E9.  0 > THEN 
DO  120  3*1, V 
A(I,i)*-A(I,J) 

120  CONTINUE 

XB(I)*-X3(I) 

SNOIF 

130  CGNTINUE 

ENDIF 

C  RHS  PLACED  IN  TEMPORARY  STORASE  LOCATION 
DO  150  1*1, K 


T 


C21IMBU) 

150  CONTINUE 

DO  160  !*K+1,20 
C2il)*0.0 

160  CONTINUE 

C  PRIMAL  C(J)-ZiJ)  VALUES  CONVERTED  TO  RHS 
DO  170  J*i.V 
XBU)*C1J> 

170  CONTINUE 

C  NUMBER  OF  DUAL  VARIABLES  INCLUDING  UNCONSTRAINED  VARIABLES  FOUND 
IF ‘NEC  .NE.  01THEN 
V2*K»N£C 
ELSE 
V2=K 
ENDIF 
K2=V 

C  COEFFICIENT  MATRIX  ROTATED  AND  PLACED  IN  UNUSED  ORIGINAL  A  MATRIX 
DO  190  1*1, X 
DO  180  J*i,V 
AIJ. I+20)*A(I, J) 

180  CONTINUE 

190  CONTINUE 

NRITEU,’ (A)' '-CHAR  (12) 

C  VARIABLES  ADDED  TO  ALLON  FOR  UNCONSTRAINED  VARIABLES 
IF (NEC  .NE.  OJTNtN 
IE=0 

DC  210  3*1. K 
IF(INEBU)  .Eft.  2) THEN 

IE*1E+1 

NR!TE!i,’(A)MCHAf><12> 

WITE<1,M9(/>,JX, "VARIABLE  7 M2,"  HAS  BEEN  ADDED  DUE  TO 
.’’/'’VARIABLE  ’’,12,”  BEING  UNCONSTRAINED  IN  BI6N.”,7(/))’)K+IE, 
.1 

PAUSE 

DO  200  0*1, K2 

IF (AU,  1+20)  .NE.  0.0) THEN 
A(J.K+IE+20)*-1.0l(A(J,i+20l) 

ENDJF 

200  CONTINUE 

IF(C2<J)  .NE.  0.01THEN 
C2(K+1E)*-1.0IC2(I) 

ENDIF 

ENDIF 

210  CONTINUE 
ENDIF 

IF (NEC  .NE.  01THEN 
N*1 
ELSE 
N*0 
ENDIF 
NEC*0 
N6C»0 
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MLC*0 

C  COUNT  BY  INEQUALITY  TYPE  PERFORMED 
M  220  1*1, X2 
IFfHKIW  .Efi.  DTHEN 
INEQUW 
PINEflil)*’)' 

M6C*HBC+1 

ELSE 

;neb(»)*o 

PlHEfi<I>*'<* 

NLMft£»l 
EMSIF 
220  CONTINUE 

IF(MXMW  .Efi.  1 ) THEN 
HXNN*2 
HH*’H1N' 

ELSE 

MHN*! 

HH=’N6r 

ENDIF 

IFUFLAE (5)  .EG.  DTHEN 

C  HGKL  INCLUDES  HANES  SO  HANES  ARE  CHANGED  TO  REFLECT  DUAL  PROB 

GBJN=’ 

30  230  1*1, K 
VH2!ii*CN!I) 

230  CONTINUE 

DO  240  3*1, V 
CNU)*VN<3! 

240  CONTINUE 

DO  250  1=K*1,20 
VN2II)*’ 

250  L0NT1NUE 

ENDIF 
N*1 

CALL  NFILE(N) 

C  DUAL  NODEL  MRIITEN  TO  DISK  UNDER  USER  SPECIFIED  NANE 
NRITE (3)PN,  RTHN, NH.K2, V2, NEC, NSC, NIC 
DC  260  I*!, 10 
NRITE(3;iFLA6(I) 

260  CCNTiNUE 

DO  280  1*1. K2 

NPiTEC')iNEBD),PINEfi'I!,XB(I) 

DO  270  J«1,V2 
NRITEIJ)AU,3*2Q) 

270  CONTINUE 
280  CONTINUE 

DO  270  3*1, V2 
NRITE (3)C2I3» 

290  CONTINUE 

IFUFLA6<5!  .Efi.  DTHEN 
DO  300  1*1, K2 
H«ITE(3)CNU) 
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I6\ 


300  CONTINUE 

M  31C  J*1,V2 
NRITEi3tVN2(J) 

310  CONTINUE 

NRITE(3)03JN 

ENPIP 

CLOSE!?, STATUS^’KEEPM 
NRlTEtl,’ (A)’>CKAR(12) 

NRITE11. M1H/), IX.” INSURE  DISK  LP2 

PAUSE 

RETURN 

END 


IS  AVAILABLE.”, 
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C  t  I  I  I  I  M  I  I  I  *  t  I  I  t  I  I  I  »  »  I  I  »  »  I  I  I  I  I  t  *  I  I  I 
C  NODULE  3  UNIT34 
C 

C  SUBROUTINE  ACNCH 

C  USE:  DEPENDENT  UPON  USER  OPTION  SELECTION,  EXAMINES  PRESENT  HDDEL 
C  TO  INSURE  A  NEGATIVE  CtJ)  BILL  BE  PRESENT.  IF  NOT  PRESENT  , 

C  CONSTRAINT  IS  ADDED  TO  INSURE  AN  INITIAL  PRIMAL  PIVOT  BILL 
C  BE  POSSIBLE.  USER  IS  NOTIFIED  OF  ADDED  CONSTRAINT.  ROUTINE 

C  REWRITES  DATA  FILE  WHICH  CORRESPONDS  TQ  MODEL  WITH  ADDED 

C  CONSTRAINT. 

C  CALLED  B V:  PROSRAM  PROBS 

C  CALLS  :  SUBROUTINE  INRD 

C  SUBROUTINE  NFILE'N) 

C  VARIABLES: 

C  USED:  BM.C'.t),IFLASii)  THRU  IFLA&(I0),MR,MXNN,NEC,N6C,0BJN, 

C  PNjV.VNIt) 

C  MODIFIED:  A(»,I).CN!I) ,INED(t>, IT,K,N,NlC,PlNEQ(«),XBU) 

C  t I  I t  I  It  t  M  t I  I ! I  I  l  I  I  t  t  I  :  ti  i  t  t  I  I  I  I  t  I 

SUBROUTINE  ACNCH 

CHARACTER  V»»6,CNt6.PN»20,MH»3,FNtl0,PINEQ»l,P(10m.CBJN»10 
INTEGER  ARTV, BASIC, PL, PR, OPTS. V.VT.CB, DUAL, GUTP.FHT.PROBT 
CUHrt0N/P!/Ai20.60'.ARTV(20).Ci60),I,INE8(20),IFLAB(10),CB(20), 
.XBT20),K,V,VT,NXNN, BASIC, OPTS.BM 

CCHrtOW/ P2 / NEC , NGC , NLC , IA,INDEXE, INDEXB, IHDEXL. KF6, KFS. KFSA, KFSU, 
.PK.PR 

C0IWCN/P3/CUAL,0UTP, ITAB, IBTAB, IFTAB, FHT, PROBT 
C0MM0N/P4/VNI20) ,CN<20) .PN,HN,FN,?INE8(20> ,OBJN 
C  ROUTINE  CALLED  WHICH  INITIALIZES  VARIABLES  AND  READS  MODEL 
CALL  INRD 
IT=0 

IF-MXMN  .ED.  DTHEN 

C  PROBLEM  STATED  AS  A  MAXIMIZATION  PROBLEM 
DO  160  J=1,V 
IF(CiJ)  .ST.  0.0) THEN 
IT=1 
END  IF 

160  CONTINUE 

ELSE 

DO  ISO  J»1,V 
IF(CiJ)  .LT.  0.0) THEN 
IT=I 
ENDIP 

130  CONTINUE 

ENDIF 

C  DETERMINES  IF  INITIAL  PIVOT  POSSIBLE 

IF (IT  .ED.  0) THEN 

N*0 

80  TO  200 
EM01F 

C  TO  INSURE  INITIAL  PIVOT,  CONSTRAINT  ADDED 
NRITE(1,MA>’)CHAR(12) 

K*r.+1 
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INEQ(K)=0 

Pi»EQ(K)*,<’ 

NLC=NLC+1 

Du  1?0  3*1,  V 

190  CONTINUE 

NRITE(1,'(A/')CHAR'12) 

NMTEU.’ <?</), 2X, "A  CONSTRAINT  HAS  BEEN  ADDED  TO  THIS” /1> f ” PRO 
.BLEB  TO  INSURE  AN  INITIAL  PIVOT  »AY”/13X,”BE  PERFORMED. ” //’’THE 
.  CONSTRAINT  IS  THE  SUB  OF  XID  THRU”)’) 

KRITEd,’  i5X,”X(”,I2,”)  IS  LESS- THAN  OR  EQUAL  TO” /3X,  1PEI2. 5,2 
.X,” (THE  VALUE  OF  BIS  B)”,5(/?)’)V.BR 
PAUSE 

IF!IFLA6(5)  ,ES.  DTHEN 
CN(K>*’ ADDED’ 

ENDIF 

N=2 

200  CALL  NFILE(N) 

C  m  FILE  CONTAINING  MODEL  KITH  ADDED  CONSTRAINT  WRITTEN  TO  DISK 
RRITEi3)PN,BIBN,BR,K,V,HEC,NGC.NLC 
DO  230  1=1,10 
NR!T5(3)IFLAG(II 
230  CONTINUE 

00  250  l=l,K 

HRITS(3)IME@<I).PINES'D,XB(I) 

DO  240  0=1, V 
HPiTE(3)AiI,J) 

240  CONTINUE 
250  CONTINUE 

DO  270  M.V 
HRITE;3)C(J) 

270  CONTINUE 

!F-:iFLAB(5)  .EB.  DTHEN 
DO  290  1=1, K 
WRITE  <31 CN< I ) 

290  CONTINUE 

DO  310  J=J,0 
WRITE (3) VN  < J) 

310  CONTINUE 

DO  330  J*V*1,20 
VN(J;=’ 

330  CONTiMUE 

NRITE!3''QBJH 

ENDIF 

CL0SE(3,STATUS=’KEEP’/ 

WRITE* I , ’ (A) ’ )CHAR(12) 

WRITE <i.’(ll(/?,lX,” INSURE  DISK  LP2  IS  AVAILABLE. ”,7</>)’) 

PAUSE 

RETURN 

ENG 
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Cltttttttlttititttttttttttttttttttt 

C  NGIHJLE  3  UNIT34 
C 

C  SUBROUTINE  1NRD 

C  USE:  INITIALIZES  VARIABLES  TO  ZERO  EXCEPT  CHARACTER  VARIABLES. 

C  PRONPTS  USER  TO  INSURE  DISK  NJTH  FILE  TO  BE  STUDIED  IS 

C  PRESENT  AND  READS  FILE  FRON  DISK. 

C  CALLED  BY:  PROSRAK  PROBS 
C  SUBROUTINE  CONVRT 

C  SUBROUTINE  INRD 

C  CALLS  :  NONE 
C  VARIABLES: 

C  USED:  NONE 

C  MODIFIED:  AU,t)fARTVm, BASIC, lH.C<l).C8(l).CJ,CN<l),FN,iA, 

C  iFLABU)  THRU  IFLA6 ( 10) , I NPEXE,  INDEXG,  INDEXL,  INEC i I) , K, 

C  NEC,N3C,NLCf0BJN,QPTS,?lNE8Ui.V,VNU;,XBU),Z 

C  I  »  ♦  I  I  I  I  I  I  I  *  »  I  l  I  I  I  I  I  t  l  *  »  I  |  t  »  *  t  »  t  t  M 

SUBROUTINE  INRD 

CHARACTER  VNti,CNU,PNI2O,NNF3,FNtlO,PINEQH,P(10)ti,0BJNti0 
INTEGER  ARTV , BASIC, PK.PR, OPTS, V, VT, CB. DUAL , OUTP. ENT . PROBT 
C0»W)N/Pl/A(2O,a0i,ARTV(20).C(cO),UMt0(2O),IFLAgUO).CBi20i, 
.XBI20) ,K,V,VT,HXNN, BASIC, OPTS, BN 

CONNON/F2/NEC, HSC, NLC, IA, 1NDEXE, INDEXB, INDEXL, XFA, NFS, KFSA, KFSU, 
.PK,PR 

C0HN0N/P4/VN(20) ,CN(20),PN,HR,fN,PINEBi20) ,QBJN 
DO  150  1=1.20 
ARTV ( I ) =0 
C8(I)=0 
I NEQ ( I ) =0 
XBi»)=0.0 
CO  130  J=l,60 
AII,J)=0.0 
130  CONTINUE 
150  CONTINUE 

DO  PO  J*!,60 
C ( J ) =0 . 0 
170  CONTINUE 

DO  !«0  1=1,10 
IFLA6!I)«0 
190  CONTINUE 
NSC=0 
NSC*0 
NlC=0 
2*0.0 
:a=o 

9ASIC*0 

0PTE*0 

INDEXED 

INDEXG'O 

INDEXL=0 

NRITE(1,MA)’)  CHARI  12) 

HRITE'l,’  (9  f/l,5X,”  INSURE  THE  DISK  CONTAINING  THE”//15X,A10 
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.//10*.”NODEL  IS  AVAILABLE.”, 7</)>’)FN 
PAUSE 

C  FILE  MUCH  CONTAINS  NOBEL  OPENED  AND  BEAD 

OPEN ( 3. F !LE*FN , STATUS* ’ OLD ’ , FORH* ' UNFORMATTED’ ) 
READ(3)PN,HXrtN.HN,K.V,NEC,N6C,NLC 
DO  210  1*1,10 
RtAD(3iIFLAE!I> 

210  CONTINUE 
DO  230  1*1 ,K 

READ<3(  INEQi.r.  ,P5NE8U),KB<U 
DO  220  3*J,V 
REAB(3)A(I,3) 

220  CONTINUE 
230  CONTINUE 
DO  250  3*1, V 
READ(3)C(3) 

250  CONTINUE 

IFI1FLA6I5)  .EO.  11THEN 
DU  270  1*1, K 
READ(3>CN(1> 

270  CONTINUE 

DO  290  J*1,V 
READ(3)VN13) 

290  CONTINUE 

DO  310  J=V*1,20 
VN<3)*’ 

310  CONTINUE 

A.EAD(3>3B3N 

EHDIF 

IFLABI2)*! 

CLOSE (3. STATUS*’ KEEP1) 

NRITE(1,’(A),)CNAP(12) 

NRI7EU,’ (11!/), IX, ’’INSURE  DISK  LP2  IS  AVAILABLE.”, 7 </))’) 
PAUSE 

C  FIND  APPROPRIATE  VALUE  FOR  SIS  N 
C3*0.0 
BN*0.0 
DO  350  3*1, V 

1F(APS*C13»  .ST.  BN) THEN 
3N*ABS(C(3>) 

END  IF 
350  CONTINUE 

BN*(ANINT(BN)UiO.O 
IP (BN  .LT.  1.0) THEN 
BN* 10,0 
END  IF 
RETURN 
END 
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c  t  $  $  I  I  I  I  I  1  t  I  t  I  1  t  I  t  »  I  »  t  I  I  I  t  I  I  I  *  I  I  I  *  I  » 

C  miE  3  US1T34  » 

C  t 

C  SUBROUTINE  NFILE(N)  ( 

C  USE:  DEPENDENT  ON  FLAG  <K>,  DISPLAYS  BRIEF  EXPLANATION  OF  NEW  » 

C  FILE  BEING  CREATES.  SOLICITS  VOLUME : F I LENAME  INFUT  BY  USER  I 

C  FOR  CREATION  OF  NEW  FILE  AND  OPENS  THIE  FILE  ON  VOLUME  I 

C  SPECIFIED.  I 

C  CALLED  BY:  SUBROUTINE  ACNCH  i 

C  SUBROUTINE  CONVRT  t 

£  CALLS  :  NONE  t 

C  VARIABLES.'  t 

C  USED:  N  l 

C  MODIFIED:  P<»),FN,TN  I 

[  l  I  >  I  l  I  I  t  I  t  I  I  I  I  i  I  l  t  I  I  I  l  I  1  I  I  l  I  I  I  l  I  l  I  I 

SUBROUTINE  NFLE'N) 

CHARACTER  VNIfc,CNI6.PNi20,NN»3,FNI10,PINED*l,Pil0m,0BJNI10,TN»li 
C0MM0N/P4/VN !20) ,CN(20) , PS, MM, F N, PINE9 (20) , 08JN 
WRITE (1 . 110>CHAR(12) 

UO  FORMAT  (A) 

IF<N  ,E9.  DIHEN 
TN*’ VARIABLES’ 

ELSEIFiN  .Efi.  2) THEN 
TN=’ CONSTRAINTS’ 

ELSE 

HRITEd,’  UX,”A  NEN  DISKiFILENAME  MUST  BE  CREATED  SO”/”THAT  T 
.HE  ORIGINAL ”//15X,AlO//”NILL  NOT  BE  DESTROYED  AND  MAY  BE  REUSED. 
.”>’)FN 
GO  TO  130 
ENDIF 

'4R!TE(i/UX.”DUE  TO  THE  ADDITION  OF  ”,A11,”,  A”/” NEN  DI5L:FI 
,LE  MUST  BE  CREATED  TO  CONTAIN” /’’THE  NEN  MODEL.  THIS  MILL  ALLOW  T 
.HE  USER”/”  TO  REUSE” //15X,A1<W”  AT  A  LATER  TIME. ” > ’ )TN, FN 
130  MRITEtt.M/V’FLEASE  ENTER,  IN  SO  CHARACTERS  OR  LESS. ”/2X.”A  DRI 
.VE: FILENAME  TO  STORE  THIS  FILE.’)’) 

140  HRITEd,  M/,”NEN  MODELS  DRIVE: FILEMAHE  =  ”,♦)’) 

READ»5,MA10))FN 

150  HRITEd,' 1/7X, ’’ARE  CORRECTIONS  NEEDED?  ”,»)’> 

READ15,U1)’)P!1) 

IFdCHARtP(l)}  .ED.  BP? THEN 
GO  TO  140 

ELStlFdCHAR(Pdi)  .NE.  78) THEN 
WRITE ( 1 , 160) 

ioO  FORMAT (/5X,’ INVALID  ENTRY.  PLEASE  REENTER’) 

GO  TO  150 
ENDIF 

NRITEU,’ (/,’ 'HAS  THIS  DISKiFILENFME  COMBINATION  BEEN’ ’ /12X, ’’USED 
.  PREVIOUSLY?”/”  (ARE  YOU  UPDATIN6  A  CURRENTLY  EXISTING”  /i7X,”ri 
.LE?’ ’ )’) 

200  HRITEd,’ ;16X,”  1Y/N)  ”,*)’) 

READ<5.”A1)’>P;1) 

IFdCHAR(Pd) )  .ED.  99)  THEN 
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OPEN (3, FILE2FN, STATUS2’ OLD’ , FORM* ’ UNFORHATTED’ ) 

ELSEIF < ICHAR (P( 1 ) )  ,EQ.  78) THEN 
OPEN  1 3, F 1LE=FN, STATUS2 ’NEW’, FORM2’ UNFORMATTED’ ) 

ELSE 

NRITEI1,160> 

SO  TO  200 
END  IF 

NRITE!l,110)CHARil2) 

NRITEil, ’(?(/). ST, ’’INSURE  THE  DISK  TO  COMTAIM' * //15X,A10//10X, 
.’’MODEL  IS  AVAILABLE.” ,7(/)i’)FN 
PAUSE 
RETURN 
END 


c  t  i  m  i  i  i  i  t  t  »  *  i  i  t  »  t  i  t  i  i  t  »  t  »  i  i  *  i  i  t  t  t  t  » 

C  MODULE  3  UHIT35  I 

C  UNIT  FUSES:  NONE  I 

C  t 

C  SUBROUTINE  FSHED  t 

C  USE:  DISPLAfS  TITLE  PASS  OF  MODULE  3,  PROBLEM  SOLVER  MODULE.  » 

C  CALLED  BY:  PROGRAM  PRODS  » 

C  CALLS  :  NONE  t 

C  VARIABLES:  NONE  t 

c  t  i  t  I  I  (  I  t  t  I  t  t  I  t  I  t  I  M  >  I  M  t  t  t  t  I  I  t  t  t  t  t  « 

SUBROUTINE  PSHED 
NfilTEIi , ’ (A)’ )CHAR(12) 

MRiT£(l,M3f/MX,22(,M”)/?!!,,,r\2CV’*”''%!’*,VV!LINEA 
.R”,7X,  ’’t”,20X,  ”  ”  I”,  4X, :  ’PRQEPAMMIN6”,5X. ”1 

NRITE (l, ’  (9X,  ”  t” ,  7X,  ’  ’PROBLEM’ '  f  6X,  ”  t’  ’  /9Xf  ”  I”  ,20X,  ”  I”  /  9X, 
.”t”.7X.”S0LVER”,7X,”t”/9X,”t”.20X,”t”/9X,”r’,7X,”M0DU 
.LE”,7X,  ”»”}’) 

NRITE(l,’!2(9X,”t”,20X>”l”/),9X,”$”,6X, ’’MODULE  3”,M,”»” 
./?Xf”l”,29X,”t”/9X,22(”t”),3<'»’) 

PAUSE 

RETURN 

END 


c  i  t  i  i  t  t  $  i  i  *  i  t  *  t  <  i  i  i  t  i  t t  i  t  t  » i  i »  1 1  t  i  i  t 

C  MODULE  3  UNIT35  I 

C  I 

C  SUBROUTINE  ASKfliASK)  t 

C  USE;  SEE  MODULE  2,  UNIT25.  SUBROUTINE  ASKS ( ASK)  I 

C  CALLED  BY;  PROSRAM  PROBE  t 

C  CALLS  :  NONE  I 

C  VARIABLES;  SEE  NODULE  2,  UNIT25,  SUBROUTINE  ASK0<ASK)  » 

C I l i l t i t l i l li l ; t l i > I t I  I  u  l  t  t  t  I  t  i  I  I  I  i 
SUBROUTINE  ASKQ(ASK) 

CHARACTER  VNto.CNI4,PNt2G,NMI3,FNtl0,PINEfi»l.Pd0!»l,0BJN»10, 
.FNOIIO 

INTEGER  -ARTV.BASIC.PK, PR, OPTS, V,VT,CB, DUAL, 0UTP,FMT,PP0B7, ASK 
C3IWON,'P!/A(20,40».ARTV<:0).C(60‘,I,INEe':0/,:rLA€ao;,CB(20), 

.  .0(201  ,Kf  V,  VT.MXMN,  BASIC,  OPTS.  BN 

C0HMGN/P2/NEC , K6C , NIC , IA, INDEXE. INPEY6, INQEXL , YFA , KF5 , KFSA , KFSU , 
.PK.PR 

C0NNGN/P3 1 DUAL, OUT? , I TAB . 1BTAB, IFTAB, FHT , PPOBT 
CQNH0N/P4/VN(20)  ,CN<20)  ,PN,NH,FN,PINEQ<20),QBilN 
DINENSION  A0(20.20),B!20),CQ(20) 

FNO=FN 

*00  NRITEd, 110>CHARd2> 

110  FORMAT (A) 

ASKsO 

?FLA3(10)=DUAL-1 

NRITEd, ’(8(/),”Tfl  PERFORM  SENSITIVITY  ANALYSIS  ON  THIS* ’/’’MODEL 
..  THE  INFORMATION  OF  THE  CURRENT” /’’TABLEAU  MUST  BE  SAVED  TO  DISK 

130  NRITEd,'  (”D0  YOU  NISH  TO  SAVE  THIS  FILE  TO  DISK?  ”,»)’) 
REAB(5,’,AD’)Pdi 
IFfICHA3(P'!:>  .EB.  99 » THEN 
NRITEd. I10.CHARU2) 

NRITEd,’ (/m, ’’SAVE  LP  MODEL  TO  DISK”///2Y, ’’ENTER  THE  DISK  D 
•  RIVE  NUMBER  AND  FILE” /2X,”  NAME  YOU  NANI  THE  CURRENT  TABLEAU  OF” 
.  '3Y,A20,”  SAVED  UNuEP.’M’lPN 

NRITEd,’  <m, ’’ENTER  ESACTLY  AS  FOLLOWS” /10X.  ’’DISK  DRIVEiFILt 
.NAME  7/12*. ”E6.  HjFILENAM” /'”THE  DRIVE: FILENAME  MUST  BE  10 
.  CHARACTERS’ 714X.”0S  LESS. ” / / IX. ” DO  NOT  USE  THE  SAME  NAME  USED 
.  WHEN  THE’ 741," ORIGINAL  MODEL  NAS  ENTERED.”)’) 

NRITEd,  M/TV’BISKtFILENAME  = 

READ ( 5 . ’ <  A i 0 ) ’ ) FN 

150  NRITEd, 7/7<,”ARE  CORRECTIONS  NEEDED? 

READ(5.7AI)’)Pd) 

IF.ICKAF.(Fd>)  .EB.  39! THEN 
SO  TO  100 

ELSEIFdCHAR(Pd))  .NE.  78) THEN 
NRITEd, 7/5X.” INVALID  ENTRY.  PLEASE  REENTER”)’! 

SO  TO  150 
ENOIF 

NRITEd,  U0)CHA*»d2) 

NRITEd, 711!/), IT, ’’INSURE  DISK  LP2:  IS  AVAILABLE. ”,7(.d 

.)’) 
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PAUSE 

C  TRANSFER  FILE  OPENED  AND  FILE  MARE  WRITTEN 

OPENi3,FlL£*'LP2:LFDATAN’,STATUS=! OLD’ , FORK*’ UNFORMATTED’ ) 

WRITE  *3)FN 

C  TRANSFER  FILE  CLOSED 
CLOSE I 3, STATUS*’ KEEP ’ i 
NR1TE  (1,1 101CHAR  >12) 

C  USER  PROMPTED  TO  INSERT  DISK  WHICH  SOLVED  MODEL  IS  TO  BE  SAVED 
KRITEd,’  (9(/),2X,”  INSURE  THE  DISK  TO  CONTAIN  THE  FILE”//15X, 
. A10//13X, ’ ’ IS  AVAILABLE’ ’,7(/))!)FN 
PAUSE 

KRITEd,  !10)CHAR<12) 

C  CURRENT  STATUS  OF  FILE  INPUT  BY  USER 

KRITEd,’ ;?(/), ’’HAS  THIS  DISK; FILENAME  COMBINATION  8EEN”/12X, 
.’’USED  PREVIOUSLY?”//”  (ARE  YOU  UPCATIN6  A  CURRENTLY  EXISTINO”/ 
.17X,”FILE?)”)’I 

200  KRITEd,  ’ I//14X, ’ ’ (Y/N)  ”,<)’) 

READI5,’  (Al)’)Pd> 

IFdC8AR(?d)>  .EB.  89) THEN 
OPEM ( 3, F ILE=FN, ST ATUS=’ OLD’ .FORM*’ UNFORMATTED’ ) 

ELSEIF < ICHASXP < 1 ) )  .EB.  78) THEN 
OPEN (3,FILE*FN, STATUS* 'NEK'. FORM* ’ UNFORMATTED’ ) 

ELSE 

KRITEd.  210) 

210  FORMAT ?/5X.’ INVALID  ENTRY,  PLEASE  REENTER’! 

‘  60  TO  200 

EhDIF 

C  SOLVED  MODEL  KRITTEN  TO  DISK 
*RITE»3>PN,HXHN,K.V,IFLA6<5) 

KRITEd,;  10)  CHARd2) 

KRITEd,’  <9</),5X,”  INSURE  rHE  DISK  CCN1AININS  THE” // 15X, AU* 
Jim. ’’MODEL  IS  AVAILABLE.”, 7(/))’)FN0 
FAUSE 

C  ORIGINAL  MODEL  FILE  OPENED  TO  READ  ORIGINAL  PARAMETERS 
OPEN ( 4 , F I LE*FNO. STATUS*  *  OL  D ’ , F  ORM* ’ UNFORMATTED’ ) 

RE AD  *  4 ) PN , HXMN , MM , K , V , NEC ,  N5C .  NLC 
DO  220  1*1,10 
READ  <  4 } I F  LAS  < 1 ) 

220  CONTINUE 

DO  240  1*1, K 

REA0<45IKEB!I),PINE0iI),BU) 

DO  230  J*1,V 
READ'.4)A0(I,J) 

230  CONTINUE 
240  CONTINUE 

DO  250  J*!.V 
READ!4)C3(J) 

250  CONTINUE 

CLOSE 1 4 ,  STATUS*  ’  KEEP  ’ ) 

KRITEd, l!0)CHARd2) 

KRITE?I,’i9(/), "INSURE  THE  DISK  TO  CONTAIN  THE  FILE  FQR”//15X, 
.A10//13X, ” IS  AVAILABLE.”, 7‘./>>’!FN 
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PAUSE 

00  270  1*1, K 

00  260  J*1,V 
NRITEi3)AOd,J) 

260  CONTINUE 
270  CONTINUE 

C  SOLVED  MODEL  AND  ORIGINAL  PARAMETERS  WITTEN  TO  DISK 

DO  275  J*i,V 
NRITE(3)C0(J) 

275  CONTINUE 

WRITE  *3) IFLA61 10> . VT 
DO  290  1*1,  K 
WRITE (3) XB( I> .CBd) 


DO  290  0*1, VT 
NRlTEI3>Ad,J) 

280  CONTINUE 
290  CONTINUE 

DO  300  J«1,VT 
NRITEC)C(J) 

300  CONTINUE 

WITE(3)Z 

iF(IFLA6(5)  .EQ.  1 > THEM 
DO  310  1*1, K 


NRJTE(J)CNd) 

CONTINUE 
DO  320  J*1.V 
NRITE(3)VN<J) 

CONTINUE 
WRITE i 3) OBJN 
END  IF 

CLOSE i 3 , ST  ATUS* ’ KEEP ' ) 

WRf TE  < 1 , 1 10TCHAR  <121 

NRITEd, ’did), II, "INSURE  DISK  LP2  IS  AVAILABLE.",'!/) 

.)’) 

PAUSE 

ELSEIFilCHARlPU))  ,NE.  78) THEN 
NRITEd,210) 

60  TO  130 
END  IF 

NRlTEd.  110)  CHAR  d2) 

MRITEd,’  dll/), II, "MOULD  YOU  LIKE  TO  STUDY  ANOTHER  R0PEL"/4I," 
.NHICH  HAS  SEEN  SAVED  TO  DISK?  ",*>’> 

READ(5,MA1)’IP(1) 

IFdCHAPlPdd  .EQ.  09) THEN 
WRITE (1, liO)ChAR< 12) 

MRHEd. ’!?(/>, 21. "ENTER  DISK  DRIVE  NUMBER  AND  FILENAME" MI,” 
.NHICH  THE  MODEL  IS  SAVED  UNDER,")’) 

NRITE(1,’(/6I, "MODEL  TO  STUDv  *  ”,*)’) 

READ(5.’(A10)’)FN 

WRITE < i , ’ {//7X, ' ’ ARE  CORRECTIONS  NEEDED?  ",*)’) 

READ'S, ’(AiDPd) 
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IFdCHARiPd))  .EB.  89) THEM 
80  TO  400 

ELSEIF ( ICHAR ( P ( 1 ) )  .HE.  78 (THEN 
NRITEd,’  t/*X,”  INVALID  ENTRY,  PLEASE  REENTER”)’) 

30  TO  450 
ENDIF 

NRITEd  ,110)CHARd2) 

NRITEd,’  dH/!,  IT, ’’INSURE  DISK  LPl  IS  AVAILABLE. ”,7</> 

.)’) 

PAUSE 

C  TRANSFER  FILE  OPENED  AND  NEW  MODEL  FILE  HAKE  WRITTEN 

OPEN ( 3,  F I LE* ’ LP 1 : LPD AT A’ , ST ATUS= ’ OLD ’ , FORM*’ UNF  DKRATTED ’ ) 

WRITE (3) FN 

CLOSE ( 3, STATUS1 ' KEEP ’ > 

ASK*t 

RETURN 

ELSEIFdCHAR'Pd)!  .NE.  73 > THEN 
WRITE (1. M/57, ” INVALID  ENTRY,  PLEASE  REENTER”)’) 

SQ  TO  390 
ENDIF 

NRITEd,  liO)CNAP.d2) 

NRITEd,’  itl</.MX. ’’INSURE  DISK  LP2  IS  AVAILABLE.”. 7;/))’) 
PAUSE 

WRITE  d,  MO)  CHAR  <12) 

WRITE d. ’  (8!/), »X,”TO  ENTER  THE  LP  DATABASE  MODULE: ”// 17W TYPE 
.  ” // 194 ,  ”  X”  1 1 X .  ”  LPl :  SYSTEM.  STARTUP.  ” ,  3 '  / ) )  ’ ) 

STOP 

RETURN 

END 
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C  I  I  t  I  t  «  I  t  *  I  I  I  *  «  «  I  i  I  I  »  I  *  I  *  I  I  t  I  t  »  t  «  t  I 

C  HOODIE  3  UM1T35 
C 

C  SUBROUTINE  BIBH 

C  USE:  SEE  NODULE  2.  UNIT25,  SUBROUTINE  BISH 
C  CALLED  BY:  PROGRAM  PROBS 
C  CALLS  :  NONE 

C  VARIABLES;  SEE  NODULE  2,  UNIT25,  SUBROUTINE  BI6N 

C  I  I  I  t  »  t  I  t  I  «  I  t  I  «  I  I  I  I  I  I  »  I  «  t  I  I  »  I  I  I  t  t  »  I 
SUBROUTINE  BI6M 

INTEGER  ARTV, BASIC, PK, PR, OPTS, V,VT,CB, DUAL, QUTP,FNT,PRQBT 
C0m0N/Pl/A(20,iO>,ARTV<2O),Ct6O),Z,IN£fi(2C>),IFLA8UO),CB(20). 

. 78(20). K.V.VT.NXNN. BASIC. QPT5, BN 

C0MM0N/P2 /NEC , SSC , MLC , IA. INOEXE, INDEXG, IMCEXL, RFA. KFS , KF3A, KFSU, 
.PY,PR 

CCNM0N/P3/DUAL,  OL'TP,  ITAB,  IBTAB,  IFTAB,  FNT,  PR03T 
IA*iA-l 
KFSU=V+N6C 
DO  300  J-l.KFSU 
SUN*0.0 
DO  200  1*1, IA 
SUN=SUH+A ART  V  ( I ) ,  J ) 

200  CONTINUE 

C(J>*G(J)-<BN*SUN) 

300  CONTINUE 

DC  <00  J=KFA,VT 
C(J)*C.O 
400  CONTINUE 
SUH=0.0 
DO  500  1*1,! A 
SUH*SUH+!(B(ARTV(I)) 

500  CONTINUE 

I-Z-(BHISUH) 

RETURN 

END 


i 
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c  *  I  I  I  I  I  I  I  »  I  I  t  I  I  I  I  I  I  »  *  t  »  (  t  I  I  I  I  M  »  I  I  I 
C  MODULE  3  UNIT35 
C 

C  SUBROUTINE  INDEX 

C  USE:  SEE  NODULE  2,  UNIT25,  SUBROUTINE  INDEX 
C  CALLED  BY:  PRGSRAH  PROBS 

C  CALLS  :  NONE 

C  VARIABLES:  SEE  NODULE  2,  UNIT25.  SUBROUTINE  INDEX 

cim  titmitmimtimtmmtm 

SUBROUTINE  INDEX 

CHARACTER  VN»6,CN*6,PNI20,NN»3,FN»l0,PINEflli,FUC)»l,0BGNM 
INTESER  ARTV, BASIC, PK,  PR,  OPTS, V, VT.CB 
C0HmN/Pl/A(2(l,S0),APT,M20),C«o0t,Z,I«Ea(20),IFLA6U0),CB<20I, 

. XB< 20), K,V,VT.RXHN, BASIC, CRTS, BN 

CQNHGN/P2/NEC, N6C.NLC, I  A. INDEXE, INDEX6, INDEXL, KFA.KFS, KFSA, KFSU, 
,FK,PR 

CONNON/P*/ m<20) ,CN(20l ,PN,NH,FN.PINEfi<20) .OWN 
1A*1 

KF5A*V+1 

VT=V»( 2IN6C ) +NLC*NEC 
XFS*V*NSC+1 
KFA=KFS+NLC 
KFSU=V*NSC 
!NDEX8=V+1 
INDEXL=V+NSC+1 
IN0EXE*V+N6C*NLC* I 
DO  200  1*1, K 
1FUNEBI!)  ,EB.  OITHEN 
C  SLACK  VARIABLE  ADDED  TO  CONSTRAINT 
C8(l)*IND£XL 
Ail, INDEXL) *1, 

INDEXL*INDEXL+1 
ELSEIFUNEOtl)  .SB.  DTHEN 

C  SURPLUS  AND  AR7IFJCAL  VARIABLE  ADDED  TO  CONSTRAINT 

Ce(I)=lN3£XE 
ARTV(IA!*I 
!A*IA-M 

All, INDEXE)*!. 

INDEXE*lNDEXEtl 

A''1,INDE16)*-1, 

INDEXS*INDEX6+1 

ELSE 

C  ARTIFICAL  VARIABLE  ADDED  TO  CONSTRAINT 

ARTVIIA)*! 

IA*JA+1 
CB(l)*INDEXE 
A! I, INDEXE) *1. 

INOEXE*INOEXE+I 
END  IF 

PINEfi(I)*’*’ 

200  CONTINUE 

IFIIFLAS'5)  .ED.  DTHEN 
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DO  210  JKFSA.KFS-l 
VNiJ)*’SURPLS’ 

210  CONTINUE 

DO  220  J*KfS,KFfl-l 
VNU)*'SLACK' 

220  CONTINUE 

DO  230  J=KFA,VT 
VN(J)*'ART1F’ 

230  CONTINUE 

ENDIF 
RETURN 
END 


C  t  t  I  t  I  <  I  t  t  It  t  I  t  t  t  I  t  t  I  I  I  I  I  t  I  M  I  t  I  t  I  t 
C  NODULE  3  UNIT35 

r 

C  SUBROUTINE  NODIFP 

C  USE:  TRANSFORMS  OBJECTIVE  FUNCTION  FROM  HAT  OR  HiN  M  FORM  TO  MAX 
C  Z-X«0  FORM.  MULTIPLIES  ALL  CONSTRAINTS  WITH  NEGATIVE  RHS’S 
C  BY  -1  AND  CHAN6ES  INEQUALITY  ACCORDINGLY.  ONLY  USED  WHEN 
C  PRIMAL  PROBLEM  IS  BEINS  SOLVED. 

C  CALLED  BY:  PROGRAM  PROBS 
C  CALLS  :  NONE 
C  VARIABLES: 

C  USED:  !FLA6(4),K,MXMN,V 

C  MODIFIED;  A!t,t),C!t),iN£9U),N6C,NLC,NN,PlNEQ(t',XB(t) 
ctmiimimtiiimiimmmiit 
SUBROUTINE  NODIFP 

CHARACTER  VNt6,CNt&,PNt20,HHfG,FNtl0,PlKEfitl,P(!C>t!,0BJN»lQ 
INTEGER  ARTV, BASIC , PK, PR, OPTS. V, VT , CB 
;OMHCN./Pl/AI20,SO),ARTV!20),cisOi,Z,INES(IO).IFLA6<10),CB(20i, 

. XB (20). K,V,VT,NXMN. BASIC.  OPTS,  BM 

CCMM0N/P2/NEC,NSC,NLC,!A, INDEXE. INDEXB, INDEXL, KFA. KFS. KFSft. KFSU, 
.PK.PR 

C9Mf!0N/P4/VN<20)  ,CN<20),PN,HH,FN,PINEQ(20l  ,QBJN 
IFi.HXNN  .ES.  1 ) THEN 

C  PROBLEM  STATED  AS  MAXIMIZATION  PROBLEM 

DO  160  J-1,V 
C(J)*-CfJ) 

160  CONTINUE 

ELSE 
HH=’MAX’ 

ENDIF 
:flas<4)*i 
CO  300  1*1, K 
IF(XB(I)  .LT.  0.0) THEN 
XB(I)**XB(I) 

DO  200  J»1,V 
A(I,J)*-AII,J/ 

200  CONTINUE 

C  COUNT  OF  INEQUALITIES  UPDATED  DUE  TO  MULT  BY  -1 

IFUNEQU)  .Efi.  0) THEN 
NLC*NLC-1 
NGC*NGC+l 
INEQslM 
PINEO II >»*  >' 

ELSEIFfiNEQU)  .E9.  DTHEN 
N6C*N€C*1 
NLC*NLCtl 
INE6d)*0 
PINEQ<I)*’<’ 

END  IF 
ENDIF 
JOO  CONTINUE 
RETURN 
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c  (  I  I  t  I  t  |  (  t  M  (  I  t  t  (  I  t  I  (  I  I  I  t  t  (  t  I  I  I  I  t  t  I 
C  NOME  3  UNIT35 
C 

C  SUBROUTINE  N001FD 

C  USE:  TRANSFORM  OBJECTIVE  FUNCTION  FROH  NAX  OR  HIN  M  FORM  TO  HAX 
C  2-1*0  FOPN.  TRANSFORM  ALL  CONSTRAINTS  WITH  BREATER-THAN  OR 
'C  EQUAL  INEQUALITY  TO  LESS-THAN  OR  EQUAL  INEQUALITY. 

C  CALLED  BY:  FP.06RAJI  PROBS 
C  CALLS  :  MINE 
C  VARIABLES: 

C  USED:  K,NXHN,V 

C  MODIFIED:  AI»,l),C<«),INEQ(l),N6C.NLC,HH,PINEQm,XB(l) 

C  I  %  «  I  I  I  I  I  »  I  I  t  I  I  I  I  I  I  I  4  *  I  I  I  »  I  I  I  *  *  I  I  I  I 

SUBROUTINE  HGDIFD 

CHARACTER  VN*6,CNI6,PNI20,HNI3,FNflO,PINEQ»I,PUO)U,OBJNllO 
INTESER  ARTV, BASIC, PK, PR, OPTS, V,VT,CB, DUAL. QUTP,FNT,PROBT 
CONnQH/Pl/A(IO,4Oi,ASTV(2O;.C!tO),2,INEQ(2O!,IFLAB!10),CB(2O;, 
.XB(20),K,V,VT,HXHN, BASIC, OPTS, BN 

C0NN0N/P2/NEC, NBC, NLC, IA, INDEXE, INDEXS, INDEXL, KFA, KFS, KFSA, KFSU, 
,PK,PR 

CGNNCN/P4/VN(20),CN!20!,PN,NH,FN,PINEQ!20),0BJN 
IFIHXNN  .EQ.  DTHEN 

C  PROBLEM  STATED  AS  MAXIMIZATION  PROBLEM 

DO  120  J*1,V 
CIJ'*-C<J) 

120  CONTINUE 

ELSE 
NN*’HAX’ 

END  IF 

DO  150  1*1, K 
IFdNEC(I)  .EQ.  DTHEN 
X8<l)*-TBU) 

CO  140  J»1,V 
A(I.J)*-A(I,J) 

140  CONTINUE 

C  COUNT  OF  INEQUALITIES  UPDATED  DUE  TO  MULY  BY  -I 

P!NEQ(I)*’<’ 

1NEQ(I)*0 
N6C-N6C-1 
NLC*NLCM 
ENDIF 
150  CONTINUE 
RETURN 
END 


C  I  I  »  I  I  »  »  M  »  I  *  »  I  I  I  »  *  I  I  I  »  *  I  I  I  I  I  I  »  t  t  I  I 
C  NODULE  3  UNIT 36 
C  UNIT  (USES;  UN1T37 
C 

C  SUBROUTINE  TDISPL 

C  USE:  0ETERH1NES  THE  NUMBER  OF  80  COLUMN  NIDTHS  REQUIRED  TO  DISPLAY 
C  TABLEAU.  DISPLAYS  TABLEAU  TO  USER  SELECTED  OUTPUT  DEVICE. 

C  ALSO  SOLICITS  INPUT  FROM  USER  AS  TO  DISPLAYING  THE  BASIC 

C  VARIABLES  VALUE  AFTER  EACH  DISPLAYED  TABLEAU.  IF  REQUESTED, 

C  DISPLAYS  THE  BASIC  VALUES  ON  SELECTED  OUTPUT  DEVICE  WITH 
C  OBJECTIVE  FUNCTION  VALUE  ALSO  DISPLAYED. 

C  CALLED  BY:  PROGRAM  PROBS 
C  CALLS  :  SUBROUTINE  CHECK2(P,M,M,!NVAL,INEi») 

C  VARIABLES: 

C  USED:  A(t>t),BASIC,Cl.t),C8{|),CN<t),FNT,IFLA6{3),INENjINVAL, 

C  K.PINEQi*),PM,VNIti.VlJBU),Z 

C  MODIFIED:  Pit) 

[  |  |  |  I  I  ■  I  I  I  I  It  I  <  I  t  t  II  I  I  I  !  I  I  >  t  I  I  I  t  I  I  I 

VJSES  UCHECK2  IN  UNIT37.CQDE  OVERLAY 
SUBROUTINE  TDISPL 

CHARACTER  VNI6,CNI6,PN»20,HM!.FNI10.PINEQII,PI10)$1,OBJN»10 
INTEGER  ARTV, BASIC, FK, PR, Qp"S,V.VT,C8, DUAL, QUTP,FMT,PR3BT,T 
C0MH0N/PI/A(20,60) ,  ARTV(20t  .CifcO) ,  Z,  INEQI20) .  IFL.A61 10)  ,CB(20i , 
.WI20),K,V,VT,M)tHN, BASIC, OPTS, DM 

COMMON/P2/NEC,NSC,NLC, ’A. INCEIE, INDEX6, INCEXL,KFA,KFS,KFSA,KFSU, 
.PK.FR 

C0MM0N/P3/DUAL. OUTP, ITAB, I3TAB. IrTAB.FMT, PROBT 

cowm/Pi/wm .  chm)  ,  pn,mm,fn.pineo  120  > ,  objn 

110  FORMAT (A) 

C  HUMBER  OF  80  COLUMN  DISPLAYS  REQUIRED  DETERMINED 
T«(VT/5)+! 

DO  470  N=1,T 
IF < IFLAG-5)  .EQ.  I ) THEN 

C  VARIABLES  NAMES  PRINTED  AS  COLUMN  HEADERS 

NRITEi2,'U3I,l)’» 

DO  270  J*(Nt5i-4,NI5 
IFIJ  .8T.  VT) THEN 
SO  TO  270 
ENDIF 

NRITE(2,260)VNtJ) 

260  FORMAT I5X, A6, 2X , ♦) 

270  CONTINUE 

NRITEI2,’ !”  ”)’) 

ENDIF 

WRITE  12, ’ !13X,I)’) 

DO  290  J*(NI5)-4,NI5 
IFIJ  ,6T.  VT) THEN 
50  TO  290 
ENDIF 

NRITE42, 280) J 

280  FORMAT  <57,  ’  I  ( ’ ,  12,  ’ ,  31,  ♦) 

290  CONTINUE 
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C  IF  LAST  BO  COLUMN  DISPLAY,  DISPLAY  RHS 
IF <T  .£8.  1  .OR.  N  .EB.  DTHEN 
KRITE (2,300) 

300  FORMAT I6X,’ RHS’) 

ELSE 

KR1TEI2,’  i"  ”)’) 

ENDIF 

MRITE<2,M”QBJ  FUNCTION",  IX,  »i’) 

DO  320  J*INJ5';-4,Nt5 
IF ( J  .6T.  VT1THEN 
SO  TO  320 
ENDIF 

5F<FNT  .EB.  0) THEN 
«RiTE(2.MlPE12.5,IX,*)’)CiJ) 

ELSE 

NA!TE!2,’!F12.5.1X,4)’>CiJ> 

ENDIF 

320  CONTINUE 

IF (T  .£8.1  .OR.  N  .EB.  T ) THEM 
IFIFMT  .EB.  OITHEN 
HRSTE<2,’ (”*  ”,IPEi2.5,lX)’)Z 
ELSE 

NRITEI2,’ I”*  ”,F12.5,1X)M7 
ENDIF 
ELSE 

NRITEi2,’<"  ”)’) 

ENDIF 

NRITEI2,M"CN  NAME  VAR",2X,65I"I”>)’) 

C  CONSTRAINT  NUMBER,  NAME.  BASIC  VARIABLE,  COEFFICIENTS 
C  INEQUALITY,  AND  RHS  DISPLAYED 

DO  *00  L-i.K 
IF (L  .GT.  K) THEN 
SO  TO  400 
ENDIF 

IF IIFLA3I5)  .£8.  DTHEN 
NRITEI2,’ (12.1X,A6,4)’)L,CN(L) 

ELSE 

XRITE(2,MI2.7X,»)’>L 

ENDIF 

NRITE(2,MlX,I2,lX,$t’»CBL! 

CG  370  J«(M5)-4,N»5 
IF ( J  . 6T.  VT) THEN 
SO  TO  370 
ENDIF 

IFIFMT  ,E8.  O' THEN 
NRITEI2, ’ (1PE12.5, 1X,$)’ )A(L,J) 

ELSE 

NRITE(2,’<F12.5,1X,«»’)A(L.J» 

ENDIF 

370  CONTINUE 

IFYT  .EB.  1  -OR.  N  .Efi.  DTHEN 
IFIFMT  .EB.  OITHEN 
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400 


470 


C 

490 


500 


530 


550 


NRITEU, ’ (Al, IX. 1PE12.5) ' )PINEQ(L> f XB<L) 

ELSE 

HRITE'2, ’ <A1, 1X.F12.5) ’ ) PINEQ4L) , XB(L) 

ENDIF 

ElSE 

NRITEU, ”)’) 

ENDIF 

CONTINUE 

IF (GUTP  .E0.  DTHEN 
PAUSE 

NP1TE(2,11Q)CHARU2) 

ELSE 

NRITEU,'  (21/))’) 

ENDIF 
CONTINUE 
CLOSE (2) 

USER  SELECTS  DISPLAY  LOCATION  OF  BASIC  VARIABLES  AND  VALUES 
NRITEU.  1 10)  CHAR  (12) 

NRITEU,’  (S(/),”KOULD  YOU  LIKE  THE  BASIC  SOLUTION  VALUES” fin, 
.’’DISPLAYED?  ”)’) 

NRITEU,’ !/9X,”i.  DISPLAY  ON  SCREEN” /W.,”  2.  BiSFLAY  ON  PRINTER 
.”//9X,”3.  DO  NOT  DISPLAY”:.’) 

NRITEU, M//13)(,”NHiCH  OPTION?  ”,$)’) 

READ (5, ’ f Al ) ’ ) P ( 1 > 

CALL  CHECKUP,  1,3,  INVAL.INEN) 

IFUNVAL  ,E9.  DTHEN 
NRITEU, 530) 

FGPNAK/SX,’  INVALID  ENTRY,  PLEASE  REENTER” 

30  TO  300 
ENDIF 

IFUNEN  . E3.  DTHEN 
OPEN (2. FILE1 ’CONSOLE: 7 ) 

ELSEIFUNEN  .£8.  2) THEN 
OPEN  (2,  FILE=’ PRINTER:” 

ElSE 

RETURN 

ENDIF 


NRITEU,  1!0)CHARU2) 

NPITEU,’  (10X.A20/1MX, ’ ’BASIC  SOLUTION  12, />’ )PN, BASIC 
JFUFLA6I5)  .Ed.  DTHEN 
DO  550  1=1. K 
IFiFHT  .Ed.  0) THEN 

NRITEU,’  !5X,A6,  ”  =  X'”,';2,”)  =  ” .  1PE 12. 5)  ’ )  VNtCB  ( I  > ) , 
.CBfD.XBU) 

ELSE 

WRITE ;2, ’  I5X.A6,' ’  =  XI”, 12,”)  =  ”,FI2.5)’)VN(CBUD, 
.CB'D.XBU) 

ENDIF 

CONTINUE 

IF'FHT  .Ed.  OiTHEN 
WRITE <2, ’  l/18X,”Zs  ”,1PEI2.5)’!Z 
ELSE 
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END  IF 
ELSE 

DO  580  1=1, K 
3 F (FMT  .EC.  0) THEN 

^H»ITE(2.M10Xf',Xr!12,”)  =  ’  ’ ,  1PE12. 5)  ’ )  CB  ( I ) ,  XB  <  1 1 
'^X,  ”  X  ( ” ,  12,  ’ ' )  *  ”,F12.5>r;CBiI),XB<I) 

CONTINUE 

1FIFHT  .EC.  0? THEN 
NRITE!2,'i/14X,”2  *  *\JPE12.5)’iZ 
ELSE 

WITEt2,’</14X.-?Z  =  ”.Fi;,5)’)Z 
END1F 
FNDIF 

IFCNEN  .E8.  2! THEN 
WRITEI2, ’(&(/))’> 
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C  t  I  M  II  t It  I  I tl I  M  tl t  I  I  I  I  I  H  t  t  I  t  I  I  t  II 
C  MODULE  3  UNIT37  t 

C  I 

C  SUBROUTINE  CHECK2IE.D,HVAL, INVAL, INEN)  I 

C  USE:  SEE  MODULE  1,  UNIT17,  SUBROUTINE  CHECK2 <E , D, HVAL. INVAL, INEN)  * 
£  CALLED  BY:  SUBROUTINE  9?TN  * 

C  SUBROUTINE  TD1SPL  t 

C  CALLS  :  NONE  I 

C  VARIABLES:  SEE  NODULE  1,  UNITI7,  SUBROUTINE  CHECK2(E.D,HVAL, INVAL,  t 

C  INEN)  I 

n  1 1 1 1 1 1  n  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

SUBROUTINE  CHECK2(E,D, HVAL, INVAL, INEN) 

CHARACTER  ALLGN$l,Eti 
DIMENSION  EdO/.ALLONdl) 

INTE6ER  D, HVAL 

DATA  ALL0N/M,,'2’,’3’,M’,’5,,,6’,'7,,,3',’9,,'0’,’  ’/ 

1NEN*0 
INVAL *0 
DO  300  I*1,D 
DO  2<K»  3*1.10 


C  CHECKS  FIRST  FOR  BLANK  CHARACTERS 

IF(E(I)  .Efi.  ALLONdlDTHEN 
60  TO  300 

ELSEIF:Ed)  .EQ.  ALLOW! J) ) THEN 
INEN*INENtlO  ♦  !ICHAR(E(I))-48) 

60  TO  300 

ELSEIFU  .EQ.  10) THEN 
INVAL* 1 
INEN=0 
RETURN 
END  IF 

200  CONTINUE 
300  CONTINUE 

IF (INEN  .EQ.  0  .OR.  INEN  .6T,  HVAL) THEN 


INVAL* 1 
INEN*0 
RETURN 
ENDIF 
RETURN 
END 
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c i t i i i ♦ i i » i » i i t  t  i  i  t  i  »  t  i  t » t  i  t  t  i  i  i  i  II 

c 

C  NODULE  4  0NIT40 

C  UNIT  tUSES:  UNITS  41  THROUGH  45,  47,  48 
C 

C  PR06RAN  HAINSA 

C  USE:  THIS  IS  THE  MAIN  PROGRAM  IN  THE  SENSITIVITY  ANALYSIS  NODULE. 

C  IT  IS  USED  TO  CALL  OTHER  SUBROUTINES  IN  RESPONSE  TO  USER 

C  INPUT  AND  TO  CONTROL  THE  OVERLAY  PROCESS  WHICH  ALLANS  LARDER 

C  PROGRAMS 
C 

C  CALLED  BY;  NONE 

C  CALLS  s  SUBROUTINE  PETRIV 

C  SUBROUTINE  COHRHS 

C  SUBROUTINE  COEFTR 

C  SUBROUTINE  HUICNS 

C  SUBROUTINE  SELECT 

C  SUBROUTINE  ADDCON 

C 

C  VARIABLES: 

C  USES  :  SELSUB 

C  MODIFIES  :  SELOUT,  IFLASiS).  IFLA642) 

C 

cummmmtmmmmmim 

♦USES  UCHECK2  IN  UNIT47.CODE  OVERLAY 
♦USES  URETPIV  IN  UNIT 48. CODE  OVERLAY 
•USES  UCCNRHS  IN  UNIT41.C00E  OVERLAY 
♦USES  UCOEFFR  IN  UNIT42.C0DE  OVERLAY 
♦USES  UNULCN6  IN  UNIT*3.C0DE  OVERLAY 
♦USES  UADOCON  IN  UNI T44. CODE  OVERLAY 
♦USES  J50LVE  IN  JNF'C.CODE  OVERLAY 
PRGSRAN  HAINSA 

INTE5ER  K. V, VT, IFLAS. INE5. CB, INDEXG, INDEXL,  INDEIE.NEG 
REAL  A0,AF,B0,BF,C0,CF,Z,9N 
CHARACTER  SELSUB.SEL0UT,SELSOL,FN*lO 
COHNON/P1/OPTS,KFA,PK,PR 
CCNNON/GNE/SELQUT, FN 

CONHON/TNO/VT, INDEI6, INDEXL. INDEXE,N6C,NLC,NEC,NEGI20),NXNN,8N 
CONNON/THREE/INFP 
♦INCLUDE  CORVAR 

OPEN  1 1 . F ILES ’ CONSOLE : M 
OPEN (5, F ILE*’ CONSOLE : ’ ) 

4000  npite:i,mai,;»’)  charu2) 

C  THE  USER  SELECTS  THE  DESIRED  TYPE  OF  SENSITIVITY  ANALYSIS. 

4010  HRITE!1,M//,  IX, ’’PLEASE  SELECT  ONE  ITEM  8r  NUKBER”,/// 

.«3X,” I)  RAN6E  UNITS - RIBHT -HAND-SIDE”,/ 

”ANB  ASSOCIATED  Z  VALUES 

..3X,”2)  RANGE  UNITS - AII.J)  l  CU )”./)’» 

NRITEd,’ !3X,”3)  CHECK  OPTINALIIV  FOR  MULTIPLE”,/ 

.,aX.  ”A!I,J),  BII),  OR  C(J)  CHAN6ES”,// 

.,34, ”4)  ADD  A  VARIABLE  OR  A  CONSTRAINT”./,' 
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.,31, ”5)  EXIT  PR06RAH*  ’  / ) * ) 

REAP  15,’ (Al)’)  SELSUB 
IF (SELSU£  THEN 

SOTO  4030 
ENDIF 

C  CHECK  FOR  VALID  INPUT 

IF  ((SELSUB  .NE.  ‘I’)  .AND. (SELSUB  .NE.  ’2’)  .AND.  (SELSUB  .NE. 

.  ’3’)  .AND.  (SELSUB  .NE.  ’♦’))  THEN 
HRITEU,’(At)’)  CHAR (12! 

NRlTEd, ’</,8X,  "INVALID  RESPONSE”,/)’) 

SOTO  4010 
ENDIF 

C  CLEAR  THE  SCREEN  AND  SELECT  OUTPUT. 

NRlTEd, ’(Al)’)  CHAR' 12) 

4020  NRlTEd, ’(*(/), 4X, "DO  YOU  NANT  THE  OUTPUT  TO  60  TO:”./// 

.,9X,  ”3)CREEN”,// 

.,9X,  ”P)PINTER” ,/)’) 

NRITE(1,'(13X,  "OR”,// 

.  ,°T,  ”B)CTH”,/// 

. .41, "SELECT  S,  P,  OR  B ”///)’) 

READi5,’(Al)’)  SELOUT 

IF  ((SELOUT  .NE.  'PM  .AND.  (SELOUT  .NE.  ’S’)  .AND. 

.  (SELOUT  .NE.  ’B')!  THEN 
NRlTEd,’ (Al)’)  CHAR (12) 

HRITE(1,’(/,8X,” INVALID  RESPONSE”)’) 

SOTO  4020 
ENDIF 

lF'SELOUT.EO. ’P’ .OR.SELOUT.EQ. ’B’ i THEN 
0PEN(6,FILE*’PRINTER: ’ ) 

ENDIF 

C  THE  HAIN  PART  OF  THE  PRQ6RAH.  SUBROUTINE  PETR1V  REAPS  ALL 
C  NECESSARY  DATA  FRCN  A  DISK  FILE  AND  THEN  THE  SUBROUTINE  15  CALLED 
C  TO  COHPLETE  THE  SENSITIVITY  ANALYSIS.  FOLLOWING  THE  ANALYSIS, 

C  THE  USER  IS  RETURNED  TO  THE  NA!N  NENU. 

CALL  RETRIV 

IF  (SELSUB  .ED.  ’l’i  THEN 
CALL  COHRHS 
60T0  4000 

ELSEIF  (SELSUB  .E8.  ’2’!  THEN 
CALL  COEFFR 
SOTO  4000 

ELSEIF  (SELSUB  .ED.  ’3’!  THEN 
CALL  HL'LCNS 

NRlTEd.’ (Al)’?  ChAR!12) 

IF (SELOUT. EQ. ’ S ’ . OR. SELOUT . EB. ’ B’ ) THEN 
lF(IFLA6(9t.E8.1)THEN 

NRlTEd, ’("THE  ADDED  CHANGES  HAVE  NADE  THE  PROBLEN”)’1 
NRlTEd,’  i”  ILL-CONDITIONED,  RETURNIN6  TO  HAIN  NENU”)’) 
PAUSE 
ENDIF 
ENDIF 

IF (SELOUT. EB. ’ P ’ . OR . SELOUT . Efi. ’ B’ ) THEN 
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IF ! IFLfiB ( 9) . EQ. 1 ) THEN 

KRm»*,’i”THE  ADDED  CHANGES  HAVE  HADE  THE  PROBLEM’ ' ) ' ) 
NRITE(4,’ (’’ILL-CONDITIONED,  RETURNING  TO  MAIN  MENU”)’) 
NR1TE(6,’ (A1)’)CHAR(12) 

END1F 

ENDIF 

IF ( IFLA6T9) .EO. i) THEN 
IFLAS|9)«0 
SOTO  4000 
ENDIF 

IF(IFLA6(3).£6.1}?HEN 
SOTO  4000 
ENDIF 

CALL  SELECT 
30T0  4000 

ELSEIF  (SEL3UB  .Ei.  ’4’)  THEN 
!FLA6(2)=0 
CALL  ADDCQN 
!F<IFLAG!3i.E0.1)THEN 
IF  tSELOUT .EC. ' S’ . OR. SELOUT . EQ. ’ V ) THEN 
NRITE<l,M5I  ).5*.”mi«l  NOT  FEASIBLE  I $«»«”)’) 
PAUSE 
ENDIF 

IF (SELOUT. EC. .OR. SELOUT. EB. ’B’ ! THEN 
NRITE(o,M5</},51i.”tmm  NOT  FEASIBLE  tmm”!’) 
WRITE (b. ’ <A1 ) ’ ) CHAR' 12) 

ENDIF 
SOTO  4000 
ENDIF 

NRHE0,’(A1)’>  CHAR (12) 

IF  < IFLfto (2) . EQ. 0) THEN 
CALL  SELECT 
ENDIF 
SOTO  4000 
ENDIF 

4030  M1TE(1,’(AP’)  CHAR (12) 

ilRITEtl,' (3t/),|X,”T0  ENTER  THE  LP  DATABASE  MODULE: ’ ’ //17X, 

.  ’’TYPE’  ’//m.  ”X”  /111.  ”LPl:3YSTEH.STARTUP.  ’  ’ ,  ///)  ’ ) 

PAUSE 

STOP 

END 
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C 

C  MODULE  4  UMIT40 
C  UNIT  (USES:  NONE 

r 

V 


C  SUBROUTINE  SELECT 

C  USE:  THIS  SUBROUTINE  CALLS  SUBROUTINE  SOLVE  IF  THE  USER  DESIRES  A 
C  MEN  FINAL  TABLEAU. 

C 

C  CALLED  BY:  PR06RAA  HAIMSA 
C  CALLS  :  SOLVE 
C 

C  VARIABLES: 

C  USES  :  SELSOL 
C  MODIFIES  :  NONE 


C  *  I  M  »  *  t  *  I  I  I  t  |  I  I  i  I  l  t  »  t  t  (t  I  »  I  I  t  {  I  »  »  I  I 

SUBROUTINE  SELECT 
CHARACTER  SELSOL 

4090  NRJTEU,'(5(/»,5X."M  YOU  NISH  TO  SOLVE  THIS  TABLEAU* ’ I ’ ) 

NR  I TE I  i,’  <//,10X,”  SELECT  ””Y””  OR  ””N”:!  ”!') 

READ(5, ’(Al)’1  SELSOL 
NSITE(1.’ (Al;’)  CHAR (12) 

IF  (SELSOL  .£0.  *Y'i  THEN 
CALL  SOLVE 

ELSEIF (SELSOL  .1C.  ’N’>  THEN 
NRITE (I, M//,  101, ’ ’ IMPROPER  RESPONSE’ * ) ’ ) 

SOTO  4093 


ENDiF 

RETURN 

END 
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C  I  I  I  4  I  I  I  It  I  I  I  *  I  I  *  4  I  4  I  4  I  4 4  4 I  I  I  I  I  St  4  4  I 
c  4 

C  NODULE  4  UN1741  I 

C  UNIT  (USES)  NONE  4 

C  I 

C  SUBROUTINE;  CO  WHS  » 

C  USE;  THE  SUBROUTINE  DETERMINES  THE  MINIMUM  AND  MAXIMUM  VALUES  OF  t 

C  EACH  RI6HT-HAND  SIDE  IN  THE  ORISINAL  EQUATION  WHICH  WOULD  4 

C  NOT  CAUSE  A  BASIS  CHANGE.  THE  NEW  SOLUTION  IS  SHOWN  FOR  EACH  4 
C  OF  THESE  UPPER  AND  LOWER  BOUNDS.  4 

C  4 

C  CALLED  BY:  PROGRAM  MAI NS A  4 

C  CALLS  :  NONE  4 

C  4 

C  VARIABLES:  4 

C  USES  :  RHIN<20),RMAX(20>,RSCHt20,20),LWBB(20,20>,UP8D<20,20),  4 

C  RSUL3MI20/)RSLLIH(20),2LP,2UP.2LS.IUSfTEMP,BM,SELDUT,  4 

C  K , V , VT , I NEQ , IFl AG, NE6 I 20) , COL , CONSTR, 1NDEXL, MXMN  4 

C  MODIFIES  :  AF,AO,BF,BQ,C0,CF,Z  4 

C  4 

C  4  4  4  4  4  I  «  4  I  4  4  4  4  4  4  ?  4  I  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  I 
SUBROUTINE  COHRHS 
INTEGER  VT,V,K,J,CCL,IFLA6fiNEfi,NE6' 

. CB. INDEX6, IKDEXL . IHDEXE, CONSTR.MXMN 
REAL  RMX(29>,RHINi2Oi,AO,RSCH(20.2O>,BO,CF,BF,TEHP,BH, 
.CO,RSULIM(20).RSLLIN120),LNBD(20.2C),UPBB(20,29),I15,ZUS.ZLP,:UP 
CHARACTER  SEL0UT,FN419 
COHMON/ONE/SELOUT'FN 

C0MM0N/TW0/VT.INDEXG.INDEXL.INDEXE.N6C.HLC, NEC, NE6I20), MXMN, BM 
4 INCLUDE  C0MVAR 

C  RIGHT-HAND-SIDE  RANGING  IS  DONE  FOR  EACH  CONSTRAINT. 

DO  4120  CQNSTR  «  1,K 

C  THE  COLUMN  OF  B-INVERSE  ASSOCIATED  WITH  THE  CURRENT  CONSTRAINT  IS 
C  DETERMINED. 

COL=CONSTR+INBEXl-l 
RMAX (CONSTR)  »  10E12 
RKIN(CONSTR)  «-lOE12 

C  DETERMINE  RESOURCE  LIMITS 

C  THE  MINIMUM  POSITIVE  AND  MAXIMUM  NEGATIVE  VALUES  WHICH  WILL 
C  CAUSE  A  DEGENERATIVE  CONDITION  ARE  DETERMINED. 

DO  4140  L  *  l'K 

IF  lABSIAFIL'COLM  .6T.  .0001)  THEN 
IF(ABS(BFiL)).ST.  .0001ITHEN 

RSCH(L,CCNSTR)  *  -BF(L)/AF(l,CDL) 

IF <RSCH(L, CONSTR)  .BT.  0) THEN 

RMAX (CONSTR) *AMINI (RMAX (CONSTR) ,R3CH(L, CONSTR) ) 

ELSE 

RNIN(CQNST.R)sANAXl(RNIH(CONSTR),RSCH(L, CONSTR)) 

ENC1F 

ELSEIF(CBiL)  .GE. INDEXE) THEN 
RMAX (CONSTR 1*0 
RMIN(C0NSTR)*0 


r 


ELSEIF (AF (L, COL)  .LT.  0 1  THEM 
RMAK  CONSTR  )»0 
ELSE 

RHIN<C0NSTR>*0 

ENDIF 

ENDIF 

4140  CONTINUE 

HSULIN (CONSTR!  >  BO(COHSTR)  ♦  RMAX (CONSTR) 

RSLLIHtCONSTR)  «  BO (CONSTR)  +  RMIN(CONSTR) 

C  IF  THE  CONSTRAINT  HAS  BEEN  MULTIPLIED  BY  MINUS  ONE,  THE 
C  RESOURCE  UPPER  LIMIT  (RSULIN)  AND  THE  RESOURCE  LONER  LIMIT 

C  (RSLLIN)  AS  HELL  AS  THE  ORISINAL  RIGHT-HAND  SIDE  ARE  REVERSED. 

IF  (NEB  (CONSTR)  .EQ.DTHEN 
TENP^-RSUL IN ! CONSTR ) 

RSUL I M ( CONSTR ) =-RSLL I M (CONSTR ) 

R3LLIM(C0NSTR)*7EMP 

30(CQNSTRi*-B0(C0NSTR) 

ENDIF 

C  THE  UPPER  BOUND  (UPBD)  AND  LONER  BOUND  (LNBD)  FOR  EACH  RHS  IN 

C  THE  FINAL  SOLUTION  ARE  OBTAINED. 

DO  4150  L  =  1,K 

UPBD (L. CONSTR)  *  AF(L.CQL)  t  RHAX (CONSTR)  +BF(L) 

LHBD!L, CONSTR)  *  AF(L,COL)  »  RH1N (CONSTR)  ♦BF(L) 

IF  (NE6 (CONSTR)  ,E9.  1)  THEN 
TEHP*UPBO(L, CONSTR) 

UPBDiL,CONSTR)*LNBO(L, CONSTR) 

LNBD (L, CONSTR) *TEMP 
ENDIF 

4150  CONTINUE 

7US=0 

ZLS=0 

IUP=0 

ZLP=0 

C  THE  RESULTS  ARE  PRINTED  FOR  EACH  BOUND  DEPENDING  ON  THE 

C  CONDITIONS. 

DO  4140  L  *  i,K 

IF (SELOUT  ,E0.  ’S’  .OR.  SELOUT  .EB.’B’iTHEN 
IF (L.E0.1.0R.L.ES.8.0R.L.E6. 15) THEN 
NRITEU, ’ (Al)’)  CHAR (12) 

NRITEd,’  (/,40(”  I” )./)’) 

NRITEd, '(6)1, ’’SIGHT  HAND  SIDE  RANGE  UNITS”)’) 
NRITEU," <121, ’’CONSTRAINT  »  ”,I2,/)’)C0NSTR 
NRITEd,’ (’’ORIGINAL  RI6HT  HAND  SIDE  *  ’’.F12.5)’) 

.  BO(CONSTR) 

IF  (ABS'.RSLL  IN  (CONSTR) )  .3T,!E6)THEN 

NRITEd,’ (131, ’’LONER  BOUND  *  NO  LIMIT”)') 

ELSE 

NRITEd, ’U3X, ’’LONER  BOUND  *  ”,Fi2.5)’> 

.  RSLLIH(CCNSTR) 

ENDIF 

IF (AB5 ( RSUL IH( CONSTR) ) .BT. 1E6ITHEN 

«RITEd,’(13X,”UPPER  BOUND  »  NO  LIMIT”)’) 


383 


ELSE 

NfilTEU, ’U3X,”UPPER  BOUND  *  ”,F12.5)’) 
RSULINlCGNSTR) 

ENDIF 

NRITE(l.'(40(”t‘ ’),/•') 

NR1TE(1.M”AT  THE  LONER  BOUND — AT  THE  UPPER  ” 
’’BOUND”)’) 

ENDIF 

IF(CBtL)  .LT. 10) THEN 

IF <ABS(UP8D(L, CONSTR)). 5E.1E6.AND.ABSILNBD<L, CONSTR)) 
.BE. lEi) THEN 

WITE«ilM”H”lnf”)  *  NO  LIHIT  X(”,U, 

”)  *  NO  UNIT”)’) 

IF(CB'L)  .LE.VITHEN 
ZUS*ZUS+10E8 
ZLS*ZLS-!t€S 
ENDIF 

£LSEIF(A8S<UPBDiLfC0NSTfi) ! ,6E. 1E4) THEN 
HR1TEU,’ (”Xt”,Il,’r)  *  ”,F12.5,”  XI” 

,11,”)  *  NO  LIMT’MMCB'D.LNBDIL, CONSTR), 
CB(L) 

IF(CB(L).LE.V)T(€N 
ZLS* ZIS+CO <  CB (L ) ) tLKBD (L , CONSTR) 

ZUS*ZUS*10EB 

ENDIF 

ELSEIF <ABS(LNBD(L, CONSTR) ) .BE. 1E61THEN 
UBITEII, 11, ”)  *  NO  LIHIT  XI",  11. 

”)  =  ”  ,r  12.5i  ’  )C8<L) ,CB<L) ,UPBD<L. CONSTR) 
IFiCB(L)  .LE.  V  ) THEN 
ZLS-IOEB 

ZUS=ZUS+COiCB(L) » *UPBD(L, CONSTR) 

ENDIF 

ELSE 

NRITEI1,’ (”X<”, Jl,”)  *  ”,F12.5.”  XI’Ml, 

”.)  *  ”,F12. 3)’)CBIL).LNBD-'L, CONSTR), CB(L), 
UPBDU,  CONSTR) 

IF (CB<L ) . LE. VJTHEN 
ZLS*ZLS+COiCB  a ) ) tLHBO (L, CONSTR) 
ZUS*ZUS*Cfl!CB(L»)IUPB8(L,  CONSTR) 

ENDIF 

ENDIF 

ELSE 

IF  i  ABS  ( UPBD ! L , CONSTR ) ) . BE . 1 E6. AND. ABS (LHBD ( L , CONSTR ) ) 
.SE.lEAiTHEN 

Wt!TEll,M”X<”,12,”)«  NO  UNIT  XI”, 12, 

”)■  NO  LIHIT”)’) 

IFICBIL!  .LE.VITHEN 
ZUS«ZUS+10EB 
ZLS-ZLS-10E8 
ENDIF" 

ELSE  IF  <ABS1UPBD4L . CONSTR) > .BE. IE6) THEN 
NRITE(1,M”X(”,I2,”)»  ”,F12,5,”  XI” 


,12,”)*  NO  UNIT’ ’ ) ’ )CB(L)  ,LNBD(L,C(WSTR) , 
CB<L) 

JF(CB(L).LE.V)THEN 
ZLS*ZLS+CC(CB!L) ) tLN8D(L, CONSTR! 

ZUS*ZUS+IOEB 

ENOIF 

ELSE IF ( ABS (LNSO (L, CONSTR) ) . EE. !E6) THEN 
NR1TEU,’  (”*(”,12,”)*  NO  UNIT  X(”,I2, 

7 ’ !*’ ’ ,F12.5) ’ )CB(L) ,CB(L) ,UPBD(L, CONSTR) 
IF(C8(U  .IE.  V  (THEN 
ZLS*-10E8 

ZUS*ZUS+CD (CB (L) ) tUPBO  <1, CONSTR) 

ENOIF 

ELSE 

NRITE(l,’(”Xi”,I2,”>*  ”,F12.5,”  XI”,  12, 
”)»  ”,F12.5)7)CB(L!,LNB0(L, CONSTR), CB(L), 
UPMMl,  CONSTR) 

;f(cb(L).le.'))then 

ILS*ZLS+CO*CF (L) ) ILHBD (L, CONSTR) 
ZUS=ZUS+£G(C3(U ) IDPBOiL, CDNSTR) 

ENOIF 

ENOIF 

ENOIF 

IF(L.E6.7.0R.L.EQ.14)THEN 

PAUSE 

ENOIF 

ENOIF 

IF 'CONSTR  ,EB.  1  .AND.  L  .EO.  DTHEN 
LI ME 5*0 
ENOIF 

I F < SELOUT  .EO.’P’.OR.  3EL0UT  .E8.’B’)THEN 
IF (L.£3. 1 . ) THEN 
IF 'CONSTR  ,NE.  1 ) THEN 
IF IL IPIES+K  .ET.  MiTHEN 
NRlTElo,’ (Al)’ )  CHAR (12) 

LINES*0 

ENOIF 

ENOIF 

NRITE(4,’(/,)5)!,A10)’iFN 
NRITEIfc,M/'.50(”l” ),/)’) 

NRITE(4,’(4X,”RI6HT  HAND  SIDE  RANSE  LIMITS”) ’) 
NRITE(6,M12X, ’’CONSTRAINT  «  ”.I2,/)’)C0NSTR 
NRiTE<4,’ (’’0RI6IHAL  RIGHT  HAND  SIDE  *  ”,Ft2.5>’> 
BO(CONSTR) 

IF  (ABS  .’RSLLIH (CONSTR) ! .  SE.  1E6)  THEN 

NRITE!6,’(lJi,” LONER  BOUND  *  NO  LiHIT”)’) 

ELSE 

NRITEiV (13*, ’’LONER  BOUND  *  ”,Fi2.5)’) 
RSLLIN(CONSTR) 

END1F 

IF  <A83IRSUL!H(C0NS7R! ) .BE. 1E6) THEN 

NRITE(6.’!13X, ’’UPPER  BOUND  *  NO  LIHIT”)') 
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ELSE 

WRITEt6,’(13!!, "UPPER  BOUND  *  ”,F12.5>’> 

RSUL IN (CONSTR) 

END1F 

NRITEIA,’  (50<”t”),/)'> 

NRITEIA, M”AT  THE  LONER  BOUND* 12X, "AT  THE  UPPER  ” 
''BOUND*' >’J 
UN£S*IIHES+15 
END1F 

IF(CBIL)  .LT. 10) THEM 

IF<ABS(UPBDU.,CQNSTR))  .BE.  1E4.  AND.  ABSdNBDd, CONSTR)) 
.6E.1EWTHEM 

NRITEIA, M”XI”,I1,”)  =  NO  LIMIT' ’ ,11X,' ’X( 
21.”)  *  NO  LIMIT”) ’) 

IF(CB<L)  .LE.ViTHEM 
2UP*ZUP+tOE3 
ZLP*2LP-iO£8 
EHD1F 

EL5EIF  <  ABS  <  UPBD  <  L . CONSTR ) ) .6£. 1E6) THEN 
NRITE(A,M”X(”,I1,”S  =  ”,F12.5,10X,”  X(” 
.11,”!  *  NO  LIMIT’ '  > ' )CB(L>  .LNBDtL, CONSTR) , 
CEIL) 

IF (CB(L> -LE. V) THEN 
ZL?*ZLP+C0(CB1L) ) ILNBD1L, CONSTR) 

ZUP*Z'JP+10ES 

ENDIF 

ELSE IF t ABS (LMSD  (l, CONSTR) ) . 6E. 1EA) THEN 
NRITEIA, ’("X(”, II,”)  *  NO  LIMIT”, 11X,”  It 
,11,”)  *  ”,F12.5)')CBiL),CB(L),UPBD(L,  CONSTR) 
IF’CB(L)  .LE.  V) THEN 
ZLP=-10SB 

2UP*ZUP+CO<C8(L) ) tUPBDtL, CONSTR) 

ENDIF 

ELSE 

NRITEIA,* t”XI”,ll,”)  *  ”,F12.5.iCX,”  It”, II 
”)  *  ”,F12.3)')CB(L),LNBD(L, CONSTR). C3(L), 
UPBD1L, CONSTR) 
iF(CB(L).LE.V)THEN 
ZLP*ZLP+CO(CB<L))ILNBD(L, CONSTR) 

ZUP«ZUP+CO  (CB(L>>  IUPBD  (L,  CONSTR) 

ENDIF 

ENDIF 

ELSE 

IFtABStliPBDtL, CONSTR) ).  3E.  IEA.  AND.  ABSlLNBDiL,  CONSTR) ) 
.6E. 1E6>  THEN 

NRITE'6,M”.U”,I2,”)*  NO  LIMIT”, 111, ”I<” 
12,”'*  NO  LIBIT”)’) 

IFtCB(L)  ,LE.V)TH£N 
!l*Pe2UP+10E8 
ZLP*ZLP-10E8 
ENDIF 

ELSEIF (ABSIUPBDIL. CONSTR) ) .6E. IEA) THEN 


NRITEiA,’ (”X(”,I2,”)*  ”.F12.5,10X,”  X<” 
,12,”)*  NO  UNIT' * ) ' )CB(L) ,LHBD (L, CONSTR) , 

.  CB'.U 

1F(CB(L).LE.V)THEN 
2LP*ILP+CO<CB(LI ) ILNBD(L, CONSTR) 

ZUP=ZUF+10C8 
END  IF 

ELSE  IF  ( AB5  (LiiBD  (L,  CONSTR) ) .  3E.  1E6) THEN 
HRIT£<6,’<”I<”,I2,”)*  NO  UNIT”,  1 IX,”  X(” 
.12,”)*  ”  ,F12. 5)’) CB(L),CB(U ,UPBD(L, CONSTR) 
!F(CB(L)  .LE.  V  )THEN 
ZLP*-10€3 

ZUP*ZUP+CQ(CB(L) )  IUPBD(L,  CONSTR) 

ENDiF 

ELSE 

NRITE(6,M”Xi”,I2,”)=  ”,F12.5,10X,”  XI”,  12, 
”)*  ”, F12.5)’)C8(L),LHBD(L, CONSTR), CB(U, 

.  UPBDtL, CONSTR) 

IF (CB(L).LE.V) THEN 
ZLP*ZLP*COtCBlL) ! ILN3DIL, CONSTR) 

ZUP*ZUP+CO  iCB(L) )  BUP3D  (L,  CONSTR) 

ENDIF 

ENDIF 

ENDIF 

UNES*UNES*1 

ENDIF 

4160  CONTINUE 

lFiNXNN  .EB.2) THEN 
IIP=-ILP 
ZUP*-ZUP 
ZLS*-ILS 

zus=-zus 

ENDIF 

C  THE  VALUE  OF  Z  IS  PRINTED  FOR  EACH  UPPER  AND  LONER  UNIT. 

IF (SELOUT  .E8.  ’S'  .OR.  SELOUT  ,E0.  'B' ? THEN 
IF(A8S:ZLS).6E.1E?.AND,ABS(ZUS).6E.1E?)THEN 

NR1TEU.M ”Z*  NO  LIMIT  Z=  NO  LINIT”)’) 

ELSEIF (ABS ( ZLS ; . 6E . IE9. AND . ABS !ZU3).LT. I E9i THEN 
NRITEU.’C’Z*  NO  LI«IT  Z*  ’•,Fj6,S)’)ZUS 

ELSEIF (ABS < ZLS ! . LT , 1E9, AHO . ABS (ZUS! .5E. IE?) THEN 
NRITEU,’(”Z*  ”.Fl6.5,”  Z*  NO  UNIT”)') ZLS 

ELSE 

NRITEU,’ (”Z*  ”,FI6.5,”  Z*  ”,FI6.5)’;ZLS,ZUS 
ENDIF 
ENDIF 

IF (SELOUT  .EB.  'P'  .OR.  SELOUT  .EB.  ' B ’ ) THEM 
IF  (ABS  (ZLP)  ,6E .  1E9 .  AND.  ABS  UUP) .  BE.  IE?)  THEN 
NRlTE(6,’i”Z*  NO  LINIT”,11X, 

.  ”Z*  NO  UNIT”)’) 

ELSEIF  (ABS  (ZLPt .  3E.  IE? .  AMD.  ABS  (Zl'P) .  LT .  IE?)  THEN 
NRITE(6.’(”Z*  NO  UHIT”,11X,”Z*  ”,F16.5>’) 

ZUP 
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ELSE1F (ABS<ZLP) .LT. 1E9.AMD. ABS<ZUP) . BE. 1£9) THEN 
KRITEfA,’ (''Z®  ”,Fii.5, i!K,”Z»  NO  LIMIT’ ’ 

.  )’»ZLP 
ELSE 

NRITEIA,  ’  (”Z=  :  ',FlS,5,liX,”Z=  ’  ’  ,F16.5)  *  >ZLP,ZUP 
ENDIF 

WRITE (6. ’ <50< ’ ’ *  > ) ’ ) 

LINES*LINES+2 

ENDIF 

IF (SELOUT  .Efl.’S’.QR.SELOUT  .EC.’BMTHEN 
PAUSE 
ENDIF 
4120  CONTINUE 

IF-5EL0UT  .EO.  ’P'  .CP.  StLOUT  ,EB.  ’B’  ■■  THEN 
NRJTE(6,’(Ai)’)CHAP(12) 

ENDIF 

RETURN 

END 
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c  ■ 

C  MODULE  4  UN IT 41 
C  UNIT  4USES:  NONE 
C 

C  SUBROUTINE  COEFFR 

C  USE:  THIS  SUBROUTINE  DETERMINES  THE  MAXIMUM  AND  MINIMUM  VALUES 
C  FOR  THE  CONSTRAINT  COEFFICIENTS  AND  THE  OBJECTIVE  FUNCTION 

C  COEFFICIENTS  WHICH  WILL  NOT  CAUSE  A  BASIS  CHAN6E. 

C 

C  CALLED  BY:  PROGRAM  NAINSA 

C  CALLS  :  NONE 

C 

C  VARIABLES: 

C  USES  :  V,K,VT, IFLA6, INE2, INDEXS, INDEXL, CB, HEG, INDEXE.AO.AF, 

C  BO,BF,CO,CF,Z 

C  MODIFIES  :  BASIC(20),ILL1,ILL2,H£A!)1,HEAD2, GLOWER, CUPPER, TEMP, 

C  TEHP A, DEL AUP , DELADN , CK ILL 1 , CK ILL2 

n 

u 

c  I  I  I  t  »  *  t  I  I  *  t  I  »  I  I  *  t  t  ♦  I  »  I  »  t  I  *  I  t  4  «  I  »  »  I 

SUBROUTINE  COEFFR 

INTEGER  V,K,J,VT,COL, IFLA5, 'NEB, 

. INDE/6, INDEXL, CQNS7R, LINES, CB,NE6,INDEXE,IINEP, 

. BASIC (20> ,RGM, ILL1, 1LL2.HEAD1 . KEAD2.HXMN 
REAL  AO, AF ,BO, BF, CO, CF, Z, CLONER, CUPPER, UPBD, 

. LNBO, TEMP, TEMPA.DELAUP, DELADN. CKILL1 . CKILL2.BM 
CHARACTER  SELOUTtl.FNIn' 

C3HN0N/CNE/SEL0UT.FN 

COHNON/TWO/VT, INDEXS, INDEXL. !NDEXE,N6C,NLC,NEC,NE6(20),NXNN, DN 
♦INCLUDE  CDNVAR 

C  EACH  COLUMN  IS  CHECKED  TO  DETERMINE  IT  THE  VARIABLE  IS  IN  THE 
C  BASIS. 

DO  4201  COL=  J.VT 
BASIC 'CCD  =0 
DO  4202  CONSTR'l.K 
IP(CB(CONSTR)  .E3.  CODTHEN 

basic;col;*i 

EN0IF 

42C2  CONTINUE 
4201  CONTINUE 
READ1=0 
HEAD2*0 
LINEE-0 
L1HEP*0 

C  THE  RANGES  ARE  DETERMINED  FOR  EACH  CONSTRAINT  COEFFICIENT  IN  THE 
C  ORIGINAL  PROBLEM. 

DO  4210  C0NSTR*1,K 
DO  4220  COLM.V 

C  A  SEPARATE  ALGORITHM  IS  USED  FOR  COLUMNS  IN  THE  BASIS  VS. 

C  THOSE  NOT  IN  THE  BASIS. 

IF  (BASIC  (COL)  .  EQ.  UTHEN 
DO  4230  R0N«1,K 


EACH  RON  IS  CHECKED  TO  DETERKINE  IF  IT  IS  THE  RON  WHICH 
HAS  THE  BASIS  VARIABLE  OF  THE  COLUMN  UNDER  INVESTIGATION. 
IFtCB(RGW)  .EQ.  COL) THEN 
DELAONs-iOES 
DELAUP-IOEB 
DO  4245  1*1, VT 

THE  ONLY  COLUMNS  WHICH  HAVE  AH  OBJECTIVE  FUNCTION 
COEFFICIENT  WHICH  COULD  BE  DRIVEN  NESATIVE  ARE  THOSE 
MICH  DO  NOT  HAVE  ARTIFICIAL  VARIABLES. 

IF (L.LT. INOEXL.OR. INEQ(CQNSTR) ,EO.O)THEK 
ONLY  NON-BASIC  COLUMNS  HAVE  THE  POTENTIAL  TO  ENTER 
TO  ENTER  THE  BASIS. 

IF (BASIC  L)  .NE.  1) THEN 
DIVISION  BY  ZERO  IS  AVOIDED. 

IF (ABS I AF (RON, CONSTR+IHDEXL-l > *CF <L> -AF (ROW, 
L}ICF!CONSTR+INDEYL-l)>  .LT.  .OOOOIITHEN 
I?(CF-.l>  .LT.  OiTHEN 
TEhRA*9.9EB 
ELSE 

TEHFA*-9.«E8 

ENDIF 


ElSE 

IF  ALL  CONDITIONS  HAVE  BEEN  NET.  THE  VALUE 
OF  THE  CHANGES  TO  THE  COEFFICIENT  IS  FOUND 
WHICH  WOULD  CAUSE  AN  OBJECTIVE  FUNCTION 
COEFFICIENT  TO  BE  DRIVEN  TO  ZERO. 

TENPA=-CF  (L» (AF(ROW,CONSTR*INDEXL-l ) 

ICF (L! -AF (RON, L) *CF (CQNSTR-IHDEIL-1 ) > 

ENDIF 

THE  MINIMUM  POSITIVE  AND  IWUHUH  NESATIVE 
(MINIMUM  ABSOLUTE)  VALUES  ARE  RETAINED. 

IF'TEHFA  .ST.  OITHEN 

OELAUR*ANINI  (DELAUP, TENFA) 

ELSE 

CELADN-AMAX1 (OELADN. TENPA) 

ENDIF 
ENDIF 
ENDIF 
CONTINUE 
DO  4260  H*1,K 

FOR  EACH  ROW  NOT  P0SSESSIN6  THE  EASIS  VARIABLE  UNDER 
INVESTIGATION,  THE  VALUE  OF  THE  CHANBE  TO  THE 
COEFFICIENT  IS  FOUND  WHICH  WOULD  CAUSE  A  R1BHT-KAND- 
SIDE  VALUE  TO  BE  DRIVEN  TO  ZERO. 

IF(CBtN)  .NE.  COUTHEN 

IF  < ABS ( BF (N) IAF (ROW. CQNSTR+ IKDEIL- 1 ) -BF (ROW) t 
AF (M.COKSTR+INDEXL-1 > I  .LT.  .00001 (THEN 
IF (8F (M>  .IT.  OITHEN 
TEHFR.*?,9EB 
ELSE 

TEHPA-9.9EB 


ENDIF 


[i] 


r 


c 

c 

c 


4260 

C 

C 


4230 


C 

C 


C 

C 


£LSEIF(CB<N> .BE. 1NDEXE) THEN 
DELAUP=0 
DELATOR 
ELSE 

TEMPA=-BFIM) I (BF OH if, F (ROM, CQNSTR+INDEXL-1 ) - 
BF (ROW) IAF (H, CON5TR+INOEXL-1 » ) 

ENDIF 

THE  MINIMUM  VALUES  ARE  COMPARED  TO  THE  PREVIOUSLY 
FOUND  MINIMUM  VALUES.  AND  THE  SMALLEST  ARE 
RETAINED. 

IFITEMPA  .6T.0HHEN 

DELAUF=AMIN1(DELAUP,TEHPA) 

ELSE 

DELADN»ANA'<1  (DELADN,  TEKPA) 

END1F 

ENDiF 

CONTINUE 

THE  JUST  DETERMINED  MINIMUM  VALUES  ARE  CHECKED  FOR 
ILL-CONDITIONING. 

CKILUsl+DELADN4AF(RCN,C0NSTR+INDEXL-)) 

CK ILL2= 1 +DELAUP  * AF (RON. C0NSTR*INDEXL-1 5 
IF(ABS(CKILL1).lT.  .1  .OR.  ABS (CKILL2) .LT. . i ) THEN 
ILL1-1 
ILL2=1 
ENDIF 
ENDIF 
CONTINUE 

UPBD-AQ (CONSTR.  COL ) +DELAUP 
LWBO=AO  (CGHSTR.  COL.) 

ELSE 

THE  UPPER  AND  LONER  BOUNDS  ARE  DETERMINED  FDR  THOSE 
COLUMNS  WITH  VARIABLES  MOT  IN  THE  BASIS. 

UPBD-19E8 

i.HSD=-I0E8 

IF(A5S!CF(CCNSTR*1 HDEXL -II)  .BT.  .0001) THEN 
IF«CF(CGNSTR+INDEXL-1!  . ST. 0) THEN 

lHBD=AO<CONSTR,COL!-CF<CQLl/CF(CONSTRtINOEXL-!) 

ELSE 

UPBD* AG ( CONSTR, COL ) -CF ( COL )  /  CF  <  CONS  TR+ 1 NDEXL- 1 ) 
ENDIF 
ENDIF 
ENDIF 

IF (NES (CONSTR)  .10.  UTHEN 
TEHP*UP3D 
|JPBD*-LNBD 
LNBD*-TEMP 
ENDIF 

THE  CONSTRAINT  COEFFICIENT  RAN6ES  ARE  PRINTED  ACCORDING  TO 
THE  CURRENT  CONDITIONS. 

IF iSELOUT . EC. ’ 3' . OR. SELOUT .Efl. ’ B’ ) THEN 
IF (HEAOJ  .ED.  9  .0R.LINE5  .GE. 18) THEN 
IF (LINES  .6E. 18) THEN 
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NRITE<l.MAl)’)CHARll2) 

wii7eii,m//,4<m”»”)>’) 

HRITEtl,'  (’’COEFFICIENT  LQKERLIMIT  UPPERLIHIT” > ’ ) 
LIMESs5 
HEADI*1 
ENDIF 

IF  ( ABS  ( LHBD 1 .  SE .  I E7 ,  AMD .  ABS  t  UPBO 1 .  GE .  1 E8 1  THEN 

*ite<i,,m,”*i”,ii,”,",h,”>  = 

”ND  LIMIT  NO  LIHIT” I’ICQNSTR, COL 
ELSEIFtABStLNBDl.SE. IE71THEN 
NRITE!I,'(1X,  ”A(”,il,”,”,Il,”l  * 

”NG  UNIT' -,F!5.5) ’ >C0NSTR,CQL,UP8D 
ELSE  IF (ABSiUPED) ,  3E. 1E8! THEN 
NRITE-i,’  U.T,”  At”,  II  il,”)  *”,F14.5, 

”  NO  LIMIT” )’)C0NSTR, COL, LNBD 
ELSE 

NRlTE(l.MO,”A<”.:i,”,”,Il,”)  *”,F14.5, 

F 1 5 . 5) ’ 1 CONSTR , COL , LMBD , UPBD 
END  IF 

IFtILLS.E9.il  THEN 

HRITE(l,M8X,”NAY  BE  ILL-CONDITIONED”/!’) 

1111=0 

LIN£B-LIHES+2 

ENDIf 

LINES=LiNES*l 

ENDIF 

IFtSELOUT  .EQ.  ’P’  .OR.  SELOUT  .EB.  ’ B’ > THEN 
IF!HEA02  .Efi.  0  .OR.  LINEP  .BE.  561  THEN 
IFtLINEP  .6E.561TKEN 
HR!TE(6. ’ (All’lCHARtlZ) 

ENDIF 

NRITE!6,’ t///.15X,A10)’)FN 
NSITEt6,,.47(”t”))’l 

WRITE  <6,  ’  '51, "COEFFICIENT  L0NERL2NIT  UPPERLINIT” 
II)’) 

HEAD2M 

LINEP*8 

ENDIF 

IFtABS'LNBD) .BE. lE7. AND. ABS(UPBD» ,SE.  1EB1THEN 
NRITE(6,’(4I,”A(”,II,”,”,II,”i  = 

”N0  lIHIT  NO  LIHIT”)’)CONS7R,C0L 
ELSElFtABStLNBD) ,SE. 1E7ITHEN 
NRITEI6,’(6V’Ai”,Il,”,”,Il.”i  * 

"NO  LIHIT”, F15.5DC0NSTR, COL, OPBD 
ELSEIFtABStUPBD) .SE.IEB1THEN 
NRITE<6,:  t6X,”A!:  ’,I1,”,”,I1,”1  =”,FS4.5. 

”  NO  LIHIT”  t’ICONSTR, COL, LN8D 
ELSE 

MRITE(6,’f6X,”A(”,II,”,”,II,”l  *”,FJ4.5, 

F15.5)’)C0«STR, COL, LNBD, OPBD 


ENDIF 

IF  (1LL2.EB.  DTHEN 

W?IT£<6,  ’  <10X,  ”HAY  BE  ILL-CONDITIONED”/)’) 

ILL2*0 

LlN£PsLINEP+2 
END  IF 

LIM€P*LIMEP+1 

ENDIF 

4220  CONTINUE 
4210  CONTINUE 
LINES  *  0 

IF  'SELOUT  .£Q.  'S’  .Oft.  SELOUT  .EB.’B’)  THEN 
PAUSE 

NR1TE!1,’<A1>’)  CHAR ( 12) 

HRITElli’  (',40(”*”))’< 

NRlTEd,  ’  ’COEFFICIENT  LONERLIMIT'  ’ 

UPPERLIHIT”/)’) 

END1F 

IF  (SELOUT  .E3.  ’P!  .OR.  SELOUT  .EB.  ’3’  )  THEN 
IF(L!NEP  +  K  .ST.  43) THEN 
NRITEU.MAl)’  ICHARil?) 

LINEP  -  0 
ENDIF 

WUTE(6,’ <////,  15X,A10,/,47(”t”))’)rH 
»R1TE<6, ’ (4X, ’’COEFFICIENT  LOWERLINIT’ ’ 

.  •'  UPPERLIHIT”/)’) 

EKDIr 

C  OBJECTIVE  FUNCTION  COEFFICIENT  RAN61N5  IS  DETERMINED  FOR  EACH 
C  COLUMN  IN  THE  ORISINAL  PROBLEM. 

DO  4240  COL  »  l.V 
CLUNERa-lCES 
Cl!FPER=  10E8 

C  DIFFERENT  ALGORITHMS  ARE  USED  DEPENDING  GN  NHETHER  OR  NOT  THE 
C  COLUMN’S  VARIABLE  IS  IN  THE  BASIS. 

IF  (BASIC (COL)  .EB.  DTHEN 
DO  4270  CONSTR-l.K 

C  THE  CONSTRAINT  IS  FOUND  WHICH  HAS  THE  VARIABLE  IN  THE 

C  BASIS  ASSOCIATED  WITH  THE  CURRENT  COlUMN. 

IF(CBICONSTR)  .EB.CO.)  THEN 
DO  4280  J*1,VT 

C  ALL  COLUMNS  WITH  VARIABLES  NOT  IN  THE  BASIS  AND  NOT 

C  INCLUDING  THE  CURRENT  COLUMN  ARE  CHECKED  TO  FIND  THE 

C  CHANGE  \!F  ANY)  WHICH  HOUi.Ii  DRIVE  THE  OBJECTIVE 

C  FUNCTION  COEFFICIENT  TO  ZERO. 

IF  (BASIC(J).NE.  DTHEN 
IF  ( J  ,NE.  COD  THEN 

IFIABS  AF(CONSTR.J))  ,LT.  .00001) THEN 
TENP*10E3 
TENP*-10E8 
ELSE 

IF<NXMN  .EB. 2) THEN 

TEHP~CF ( J ) / AF ( CONSTR , j ) 
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ELSE 

TEIIF*-CF  ( J )  /  AF  (CONSTR ,  J ) 

ENOIF 
END  IF 

C  HINIRUH  VALUES  ARE  RETAINED. 

IF(TEKP.ST.O)THEN 

CUPPER'ARINl (CUPPER, TEHP) 

ELSE 

CLON£R»AHAn  (CLONER,  TEHP) 

ENOIF 

ENDIF 

ENOIF 

4290  CONTINUE 

ENDIF 

4270  CONTINUE 

ELSE 

C  VALUES  ARE  FOUND  FOR  COLUMNS  NOT  ASSOCIATED  WITH  THE  BASIS. 

IFOKNN  .Efi.  2)  THEN 
CLONERa-CFICOLI 
ELSE 

CUPPER*  CP (COL) 

ENDIF 

ENDIF 

CLONER=CO  <  COL ) *CLOHER 
CUPPERsCO(CQL) +CUPPER 
C  '.HE  RE  SIR.  IS  ARE  PRINTED. 

IF  (SELOUT  .EB.  'S'  .OR,  SELQUT  .Efl.  ’S’)  rHEH 
1F!ABS<CL0«ER) .6E.  1 E7. AND. ABS( CUPPER) .8*. 1E7>  THEN 

MRITEtl,’(4!l,"Ci”,l!,")  *  NO  UNIT  NO" 

”  LIHIT”)’)C0L 
ELSE I F  <  ABS ( CLOHER) . SE . 1 E7  ?  THEN 
NRITEU.*'4X,”CC\Il,”)  a  NG  UNIT  ”,F14.5)’ 

.  I COL. CUPPER 

ELSEIF (ABS (CUFPERI.SE.1E7) THEN 
NRITE!l,’(4X,”C(",ll,">  *",F14.5. 

.  "  NO  UNIT”)’ (COL, CLONER 

ELSE 

NRITEU,M4X,”C(”,Ii,")  *”,F14.5,1X,F14.5>’) 

.  COL, CLONER, CUPPER 

ENDiF 

LINES  »  LINES  ♦  1 
IF  (lINES  .6T.  8  )  THEN 
LINES  *  0 
PAUSE  4 

NRITEI1,’ IA1?’)  CHAR(12) 

NRITEU,’ ("COEFFICIENT  LONERLINIT" 

"  UPPERLIHIT"/!') 

ENDIF 

ENOIF 

ir'SELOUT  .EB.’P’  .OR.  SELOUT  .EG.’B’ITHEN 
IF  (ABS (CLONER) .  SE.  1E7.  AND.  ABS  (CUPPER) .  SE.  1E7HHEN 

NR1TEI6,  ’  (9X,"C(",I1,”)  *  NO  UNIT  NO” 


3R4 


m 


”  LIMIT”  >MCOL 
ELSEIF (ABS (CLONER) . BE. i E7) THEN 
RRITE«6,MBI,”Cr\U,”)  *  RO  LIH1T  ”,F14.5)’ 
!  ML,  CUPPER 

ELSEIF (ABSICUPPER) .BE. 1E71THEN 
KRITE(fc.M87,”C(”,II,”}  «”,F14.5, 

.  ”  NO  LIHIT”)’)COL,CUWER 

ELSE 

HRlTEf6,M8V’C<”,H,”)  =”,F14.5,iX,F14.5>’» 

COL, CLONER, CUPPER 
EN9IF 
END  IF 
4240  CONTINUE 

IFiSELOUT  .Efl.  *P’  .OR.  SELOUT  ,E8.  ’8’) THEN 
WlTE(6,,;Al)’;CHARil2) 

END1F 

IFiSELOUT.Efl, 'S’. OR. SELOUT. EB.’B’ITHEN 
PAUSE 
ENDIF 
RETURN 
END 


3S5 


C  4  4  4  4  4  4  4  4  4  4  4  4  4  4  t  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4 
C  : 

C  MODULE  4  UMIT43  I 

C  UNIT  4USES:  UNIT  47  I 

C  I 

C  SUBROUTINE  NULCK6  % 

C  USE:  THIS  SUBROUTINE  ACCEPTS  MULTIPLE  CHAM6ES  TO  ANY  OR  ALL  VALUES  4 

C  OF  THE  0RI61NAL  PROBLEM.  IT  THEN  DETERMINES  THE  TOTAL  EFFECT  » 

C  ON  THE  FINAL  TABLEAU.  4 

C  t 

C  CALLED  BY:  PROGRAM  HAINSA  I 

C  CALLS  :  SUBROUTINE  CHECK2  I 

C  SUBROUTINE  CHECK  t 

C  SUBROUTINE  CCNMJL  I 

c  4 

C  VARIABLES:  4 

C  USES  :  V.K,IFLA6,lN£B,CB.VT,NE6,AQ,AF,B0,BFtCC.CF,Z,;NQEXL  4 

C  MODIFIES  :  NEHA ( 20 ,20),N£HB<20) , MEWCJ  <20 , DELTAA (20.20) . DELTAB ( 20)  4 

C  DELTAC120)  4 

C  4 

C  4  4  4  4  4  4  4  4  I  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4 
4USES  UCHECK2  IN  UN IT 47. CODE  OVERLAY 
SUBROUTINE  HULCNG 

INTEGER  :.V,K.J.C0L,R0H,IFLA6, INEB. 

.CONSTR.lB.VT.NES 
REAL  AO.AF.BO.iF.CO.CF.Z.PH. 

.NEVA  (20. 20) .  NEHBCO! .  NE4CJ  (20) . 

. E  ELTAA  < 20. 20 » . DELTAB  <  20 » . DELT AC  <  20 ) 

CHARACTER  SELOUT. SELINPUO) 41 , PUOI 41 , FN4 !0 
CQH10N/0HE/SELQU7 . FN 

C0MM0N/TN0/7T. INDEXG. INDEXL. INDE4E.NGC.NLC.NEC.NEG(20> .MXMN.FM 
I INCLUDE  COHVAR 

IF?SEL0U7  .EP.’P’.OR.  SELOUT  . EQ. ' 3’ > THEN 
NRITEiB,’  i/jlSX.AlO.'MFN 
EHDIF 

NR1TE(I,’(A1)')  CHAR (I 2) 

NRITE(!.!(5(/), 

..27, "THIS  PROGRAM  ACCEPTS  MULTIPLE  CHANGES’ '/ 

• , 2X, ’ ’ TO  A  FINAL  TABLEAU  AND  CHECKS  WHETHER"/ 

.,21. ’’OR  NOT  THE  CURRENT  SOLUTION  IS  OPTIMAL’’/ 

..2X,’’FQR  THE  NEW  PARAMETERS"/)’) 

PAUSE 

NRITEli. ’ <A1,8(/) ’44444I444444STANDBY444444444444’ ’)’)  CHAP ( 1 2) 
C  PERTINENT  VARIABLES  ARE  SET  TO  ZERO. 

DO  *330  COl*l,V 
DELTAC(CQL)*C.O 
NEMCJ ( COL) *0. 0 
4390  CONTINUE 

DO  430S  CONST** l.K 
DELTAB'CONSTRI-O.O 
NENB(CONSTR)*0.0 
DO  4390  C0L*1.V 


* 

s 


DELTAA (C0N5TR,  COD  *0. 0 
NEWA<C0NS7R,C0D=0.0 
4390  CONTINUE 
4305  CONTINUE 

4370  NRlTEd,’  (fil > ’ )  CHARdI) 

C  THE  USER  CAN  SELECT  ANY  OF  THE  THREE  TYPES  OF  CHAN6ES.  WHEN  ALL 
C  CHANGES  HAVE  BEEN  COMPLETED,  THE  PRQSRAR  MOVES  TO  THE  SOLVING 
C  PHASE. 

WRITE  d,  M3)., ’’SELECT  THE  PARAMETERS  TO  BE  CHANGED”//, 

.6X.”1)  C(J)”//, 

.6.1,”:)  A(J,J)”//. 

.6*, ”3)  3(1)”//, 

,6X.:’4>  CHANGES  COMPLETE”//, 

.6X,”5)  RETURN  73  MAIN  MENU”/)’) 

PE«t5.M4U’>  SELINPd) 

WRiTEU,’  (Al)’)  CHAR  HI) 

IF  (SELINPd)  .EB.  T5  THEN 

C  INPUT  OF  CHANGES  TO  THE  OBJECTIVE  FUNCTION  COEFFICIENTS.  EACH 

C  INPUT  COLUMN  IS  CHECKED  FOR  VALIDITY  AS  IS  THE  HEW  VALUE  OF  THE 

C  COEFFICIENT. 

4315  NRlTEd.’  (5(/),5<, ’’PLEASE  ENTER  THE  COLUMN’ ’ /, 

.  51, ”TD  BE  CHANGED”//, 

.  5), ’’PRESS  D) ONE  IF  COMPLETE”/!’) 

READ (5, ’ !2A1 ) ’ )  SELINPU), SELINPI2) 

IF  (SELINP'l)  ,EG.’D:  )  THEN 
GOTO  4370 
END1F 

CALL  CHECK! (SELINP.2,V,iNVAL, COL) 

IF  (INVAL  .EB.  1  )  THEN 
WRITE  1 1,  MAI)’)  CHAR  (12) 

WP.ITEU,’ (2!/>,5X,” INVALID  RESPONSE,  PLEASE  REENTER”/!’) 
SOTO  4315 
ENDIF 

4302  NRlTEd, M5X.”THE  ORIGINAL  VALUE  OF  C(”,I2,”)  WAS  ”/)’)COL 
WRITEd,’ ii0X,F10,3/’>  CO(COL) 

NRlTEd, M/.5X, ’’PLEASE  ENTER  HEW  VALUE”)’) 

READ'S, ’d«Al>’>  (P(L),L*1,1C> 

CALL  CHECK (P.1NVAL.NEWCJ (COD) 

IFdWVAL  .EB.  I! THEN 
NRITEd,’  (AIi’)CHARd2) 

KfilTEd, ’!//,” INVALID  RESPONSE.  PLEASE  REENTER”)') 

SOTO  4302 
ENDIF 

IF  (SELO'JT.EB.  OR.  5EL0UT.  ES.  ’  5’  >  THEN 

WRITE (6, ’(’’THE  OLD  VALUE  OF  C(”.12,”)  NAS  ”,FI0.3, 

.  ’ ’ — THE  NEW  VALUE  IS  ”,.-15.8)’!C0L,C0(C0L),NEWti(C0l) 

ENDIF 

C  THE  CHANGE  IS  DETERMINED. 

DEITAC  (COD  *NEWCJ  <COL) -CO(COL) 

NRITEd. MAI, //)')  CHAP (12) 

GOTO  4315 

ELSEIF  iSELINPd)  .E6.’2M  THEN 
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C  CHANGES  TO  THE  CONSTRAINT  COEFFICIENT  ARE  DETERMINED. 

4325  NRITEU,’(5(/>.3X, ’’PLEASE  ENTER  THE  RON  TO  DE  CHANGED' ’ /) ’ > 

HRITEU, ’<5X,  "PRESS  D'ONE  IF  COMPLETE”/)’) 

READ'S, ’(2A1)’)  SELINP'I),  SELINP(2) 

IF  (SELiNPU)  .EB.  ’D’  )  THEN 
SOTO  4370 
ENDIF 

CALL  CHECK2 ( SEl I NP ,  2 , K , I NV AL , CONSTR ) 

IF  (1NVAL  .EB.  1)  THEN 
HRITEU.’ (Al)’)  CHAR (12) 

NRITE(1.’(2(/),51(,” INVALID  RESPONSE,  PLEASE  REENTER”/)’) 
SOTO  4325 
ENDIF 

HRITEU, MAID  CHAR (12) 

4335  HRITEU,’  (5(/).2X, ’’PLEASE  ENTER  THE  COLUMN  TO  BE  CHANGED”//) ’ ) 
READ'S,- (2A1)’>  SEL!NP(1),SEL!NP(2) 

CALL  CHECK2'SELINP,2,V, INVAL, CSL) 

IF  (INVAL  .£0.  1)  THEN 
HRITEU,’  '.Al)  ’ )  CHAR (12) 

HRITEU, M2(/), 5). ’’INVALID  RESPONSE,  PLEASE  REENTER”/')’) 
SOTO  4335 
ENDIF 

C  IF  THE  CONSTRAINT  HAD  BEEN  MULTIPLIED  BV  MINUS  1,  THE  VALUES 
C  ARE  SNITCHED  BACK. 

IF(NEB(CONSTR)  .EB.DTKEN 
AO (CONSTR, COL) *-A0 (CONSTR, COL) 

ENDIF 

4312  IF  'C0N3TR.LE.  9)  THEN 

IF  (COL  .LE.  9  )  THEN 

HRITE'l. 'MX, ’’THE  QRI61NAL  VALUE  OF  AC’.Il.”, ” ,11. 
”)  HAS  ”./,ilX.F15.7l’)  CONSTR, COL , AO ( CONSTR .COL) 

ELSE 

HRITEU,’  (4X, ’’THE  ORIGINAL  VALUE  OF  A!”, II, ”.”.12 
”)  HAS  ” ,/,  11X.FI5.7)  ’ )  CONSTR.  COL.  AO  (CONSTR.  COL) 

ENDIF 

ELSE 

IF  'COL  .LE.  9!  THEN 

HRITEU,- <«,” THE  ORIGINAL  VALUE  OF  A(”,I2,”,”,J1, 

.  ”)  NAS  ”,/,UX.  F15.7)’)  CONSTR, COL, AOICONSTS, COL) 

ELSE 

HRITEU,- (3X,” THE  ORIGINAL  VALUE  OF  A(”,I2,”.”,I2, 
”)  HA5  ”,/.UX,F15.7>’»  CONSTR, COL.AO(CONSTR.COL) 

ENDIF 

ENDIF 

HRITEU, \/,3X, ’’ENTER  MEN  VALUE  (10  CHARACTERS  MAX > ” / > ’ ) 
PEAD(5,’(10A!)’)  (P(L) ,LS1, 10) 

CALL  CHECK  if , INVAL, NEHAiCONSTR, COL) ) 

IF < INVAI.  .E6.  1 ) THEN 
NRITEU,’  (A1)’’CHARU2) 

HRITEU,’ 4'/,” INVALID  RESPONSE.  PLEASE  REENTER”//)’) 

SO’O  4312 
ENDIF 
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IF(SELQUT.EQ. ’P’.GR.SELOUT.tQ. ’B’)THEN 
IF<COMSTR  .LE.9JTHEN 
IF (COL  .LE.  9) THEN 

NRITEio,’  ("THE  OLD  VALUE  OF  A(”,I1.”,”,I1, 

”)  HAS  ”,F14.5,”--~THE  HEN  VALUE  IS  ”,F15.7)’) 

.  CONSTR ,  COL ,  AO  ( CONSTR ,  COL) ,  NEHA  ( CONSTR ,  COL ) 

ELSE 

HRITE<4, ’(’’THE  OLD  VALUE  OF  Ai”,II,”,”f  12, 

.  ">  HAS  ”,F13.5,” — THE  MEH  VALUE  IS  ”,F15.7)!) 

CONSTR, COL, AO (CONSTR , COL) . NEHA (CONSTR, COL) 

END1F 

ELSEIF (COL  .LE.  9) THEN 

NR1TE(6,’ (’’THE  OLD  VALUE  OF  A(”,I2,”,”,H, 

”)  HAS  ”,F13.5,” — THE  NEW  VALUE  IS  ”,F15.7>’} 
CONSTR, COL , AO (CONSTR, COL > , NEHA ( CONSTR. COL) 

ELSE 

SR1TE(6.M”THE  OLD  VALUE  OF  A(”.;2,’\”,i2, 

.  ”5  HAS  ”,F12.5,” — THE  NEH  VALUE  IS  ”,F15.7)’) 

.  CONSTR . CGL , AO ( CONST  F , COL) , NEH A ( CONST R , COL ) 

ENOIF 
END  IF 

IF ( NE6  <  CONSTR) . EG. 1 ) THEN 
AO ( CONSTR , COL ) =-AO ( CONSTR, COL ' 

NENA 1 CONSTR , COL ) * -NEHA (CONSTR , COL ) 

END  IF 

DELT  AA ( CGNSTR . COL) *NENA ( CONSTR , COL) ~AO ( CONSTR , COL ) 

NRlTEd,’ (Al)’)  CHAR (12) 

SOTO  4325 

ELSEIF  (SELINP(l)  .EG.’3’)  THEN 
C  CHANSES  TO  THE  RIEHT-HAND  SIDE  ARE  FOUND. 

4345  HRITEIl,’  (5(/),  5X, ' ’Fl.EASE  ENTER  THE  RON  TO  BE  CHANGED”/, 

.  5X, ’’PRESS  D) ONE  IF  COHPLETE”'’) 

READ(5,’ '2A1)’>  SELINP(l) .SELINP‘2) 

IF  (SELIMP(I).E8.  O’)  THEN 
GOTO  4370 
ewif 

CALL  CHECK2 ! Stl I NP , 2, K , I NVAL , CONSTR ) 

IF  (IHVAL  .EQ.  I)  THEN 
NRlTEd,’ (Al)’)  CHARU2) 

HPiTEd,’(2(/i,5S, ’’INVALID  PESPONSE,  PLEASE  REENTER”/)1) 
SOTO  4345 
ENOIF 

I F ' NES ( CONSTR ) . Efi . I ) THEN 
BO ( CONSTR ) =-80 ( CONST  R i 
END  IF 

*322  NRlTEd.’  '3>, ’’THE  ORISINAL  VALUE  OF  8(’\I2,”)  NAS  ”/;’) 

.  CONSTR 

NRlTEd,’  UOX.F10.3;’)  BC'CCNSTR) 

NRlTEd, ’(/, 51. ’’ENTER  NEW  VALUE  (10  CHARACTERS  NAD”/)’) 
READ<5.’dOAi)’J  (P<L).L«I,10> 

CALL  CHECK  IP. INVAL,  NEM(CONSTR) i 
IFIINVAL  .EQ.  DTHEN 


NRITE(lf ’(A1)’)CHAR(12) 

NRiTEll,’ (//,’’ INVALID  RESPONSE.  PLEASE  REENTER"//)’) 

SOTO  4322 
ENDIF 

IF'SELGUT.EQ.  ’F’.OR.  SELO'JT.EO.  ’  B’ )  THEN 
W?nE(6,M”THE  OLD  VALUE  OF  B(”,I2,")  WAS  ”,F10.3, 

.  "---THE  NEW  VALUE  IS  ",F10. 3) ’)  CONSTR, BO(CONSTR), 

.  NENB(CONSTR) 

ENDIF 

IF '  NEB ( CONSTR ! ■ £9 . 1 ) THEN 
BO (CCNSTR i *-BO ( CONSTR ) 

WEWB ( CONS  TR } >HNEWS  <  CONSTR ) 

ENDIF 

DELTAS » CONSTP ) *NEXB ! CONSTR ) -BO ( CONSTR) 

MITEd.MAl//)’)  CHAR (12) 

5CTG  4245 

tLSEIF  (SELINF(1).E9.’4’)  THEN 

C  WIEN  ALL  CHANGES  HAVE  BEEN  ENTERED.  THE  NET  EFFECT  OF  THESE 

C  CHAN6ES  ON  THE  FINAL  TABLEAU  IS  DETERN1NED.  THIS  BENERALLY 

C  CONSISTS  OF  MATRIX  MULTIPLICATION.  THE  FINAL  TABLEAU  B-iNVERSE 
C  (PLUS  OBJECTIVE  FUNCTION  COEFFICIENT)  IS  MULTIPLIED  BY  THE 
C  MATRIX  C0NTAININ6  THE  CUMULATIVE  CHAN6ES. 

DO  2000  C0N37RM.K 

IS2+DELTAB (CONSTR) ICF (CQXSTR+INDEIL-l i 
DO  2010  RGN=i,K 

BF  i  CONSTR )  *BF  ( CONSTR )  *DELT  AB ( RON) IAF ( CCNSTR ,  RON+INDEXL- 1 ) 
2C»iO  CONTINUE 
2000  CONTINUE 

03  2020  COL-l.V 
IF4MXMM  .EB.  2>THEN 

CF(C0L)*CF!C0l)+DtlTACiC0L) 

ELSE 

CF (COL) *CF (COL) -DELTAC (COL) 

ENDIF 

DO  2030  CONSTR* 1,K 

CF (COL) *CF (COL) +DELTAA ( CONSTR . COL ) »CF (CDNSTR+INDEXL-1 ) 

2030  CONTINUE 

2920  CONTINUE 

DO  2040  CONSTR* !,K 
DO  2050  C0L*1.V 
DO  2040  1*1, K 

AF  ( CCNSTR ,  COL )  *AF  ( CONSTR ,  COL )  +OEL  T  AA  <  l ,  C91 ) t 
.  AFtCONSTP, I+INDEXL-l) 

2060  CONTINUE 
2050  CONTINUE 

2040  CONTINUE 

ELSE IF  (SELINP  (1)  .EB.  ’S')  THEN 
RETURN 
ELSE 

NRITEIi, ’ ;A1>’>  CHAR (12) 

NRITE(lf’(5(/), 51, "INVALID  PESPONSE,  PLEASE  REENTER")’) 

SOTO  4370 


ENDIF 

CALL  CONHUL 
RETURN 
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c  »  I  »  »  I  i  I  *  »  I  M  «  I  I  I  »  I  I  I  »  I  *  »  *  »  II  I  I  I  I  •  I 

C 

C  NODULE  4  UNIT-43 
C  UNIT  IUSES:  NONE 
C 

£  SUBROUTINE:  [OMUL 

C  USE:  A  CONTINUATION  OF  SUBROUTINE  NULCNG.  THIS  SUBROUTINE  HAS 
C  BEEN  SEPARATED  TO  ALLON  CQHPILATION.  THIS  SUBROUTINE 
C  RECEIVES  THE  MODIFIED  FINAL  TABLEAU  FROM  NULCN6  AND  CHAN6ES 
C  IT  INTO  THE  BASIC  SOLUTION  FORK 
C 

C  CALLED  BY:  SUBROUTINE  NULCNG 
C  CALLS  :  HONE 
C 

C  VARIABLES: 

C  USES  :  AF,BF,CF, 2.V, VT,CE, INEB 
C  MODIFIES  :  AF,3F.CF,Z 
C 

c  m  m  m  i  m  m  m  m  i  m  1 1  m  m 

SUBROUTINE  CONHUL 

C  THIS  SUBROUTINE  IS  A  CONTINUATION  OF  THE  ABOVE  SUBROUTINE  MERELY 
C  SEPARATED  TO  ALLON  CQHPILATION. 

INTEGER  CONSTR.CQL, IFLAG, VT.ROK.CB, V 
REAL  AQ,AF,B0,BF.CG,CF,Z,NEN8(20),BH 
CHARACTER  SElOUTII ,FH»lO 
COMMON/ OME/ SELOUT , FN 

COMMON/TMO/'-'T,  TNDEXE,  INDEXL.  INDEXE.N6C,NLC,NEC,N66<20;  ,NTNN,3N 
$ INCLUDE  COHVAR 
IFLAS!9)=0 
DO  4303  CCN3TR*1,K 

C  THE  MODIFIED  FINAL  TABLEAU  IS  NON  RETURNED  TO  THE  BASIC 
C  SGLUTiON  FORH. 

NEN8(ii=AF (CONSTR, CB(CONSTR) ) 
lF(A53<NEHBU)).LT..0i)THEN 
IFLA5(9)=1 
RETURN 
END  IF 

DO  4313  C3L=1,VT 

C  EACH  CONSTRAINT  IS  DIVIDED  BY  THE  VALUE  OF  THE  COEFFICIENT 

C  IN  THE  COLUMN  ASSOCIATED  WITH  THE  VARIABLE  IN  THE  BASIS. 

C  THIS  WILL  RETURN  THE  COEFFICIENT  TO  A  VALUE  OF  ONE  (DIVIDED 

C  BY  ITSELF). 

AF (CONSTR , COL ) *AF (CONSTR.CQL ) /NENB  i  1 ! 

4JI3  CONTINUE 

BF  (CONSTR)  *BF  iCONSTR.'/NENBdt 
DO  4323  RON'l.K 

C  THIS  CONSTRAIN’.  TS  THEN  ADDED  TO  EACH  OTHER  CONSTRAINT  AND 

C  THE  OBJECT l VF  FUNCTION  IN  THE  REQUIRED  MULTIPLES  TC  DRIVE  ALL 

L  OTHER  VALUES  IN  THE  COLUMN  TO  ZERO. 

NENB ! 2 1 *-AF (RON. CB (CONSTR) ) 

IF  (RON  .NE.  CONSTR)  THEN 
DO  4333  C0L«1,VT 
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AF (RDM, CCL)=AF (RON, COL) +NENBI1 J IAF  (  COMSTR, COL) 

♦333  CONTINUE 

BF(RGN)*BF (RON) +NENB ( 1 ! IBF ( CONSTR) 

EHOIF 

♦323  CONTINUE 

if<cb:constr).lt.inoexe)then 

NENBU!»-CF(C3 (CONSTR); 

DO  ««  COL*  i .  VT 

CF (COL! »CF (COL) tNENB ( I ) IAF (CONSTR, COL) 

♦3A3  CONTINUE 

Z*Z*NEN8d)tBF  (CONSTR) 

ENDIF 
♦303  CONTINUE 
NEW  (1)  *0.0 
DO  ^377  CONSTR*!, K 

C  IF  BIS  N  HAD  BEEN  SUBTRACTED  FROM  SOKE  OBJECTIVE  FUNCTION 
C  COEFFICIENTS  IN  UNIT  «,  THEV  ARE  ADDED  BACK. 

IF (IMEa (CONSTR)  .HE.  Cl  THEN 
CF(C0NSTR+I«DEIL-l)*CFiC0NSTF;+lNDEXL-i)t3« 

ENDIF 

♦377  CONTINUE 

C  A  TEST  IS  HADE  FOR  OPTIMALITY  OF  THE  NEW  BASIC  TABLEAU. 

DO  A353  C0L*1,VT 
IFiCF(COL)  .LT.-  0.00001) THEN 
NEHB  < 1 ) =100. 

ENDIF 
♦353  CONTINUE 

DO  A363  CONSTR* l.K 
IF (3F (COMSTR)  .LT.-  O.OCOQi)  THEN 
NEN8d)=100 
ENDIF 
4363  CONTINUE 

IF(NENBd)  .ST.  9?.)  THEN 
DQ  A373  COMSTR*  1 .  Y 
IF (C3 ( CONSTR ).5E.1NDEIE) THEN 
IF(BF(C0NSTR!.6T.0)THEN 

NR1TEU, ’  (5(/> ,51,” MimiHOT  FEASI8LEIIIHM’ ’ ! ’ ) 
IFLA6'3)*1 
RETURN 
ENDIF 
ENDIF 

♦373  CONTINUE 

NRITEd.’ (5'/l  ,51, ” limmiNCT  CPTIHALllimm’ ’ ) ’ ) 
ELSE 

NRITEd,,(5(/),5X,”mm»ISTILL  QPTlHALMIHIIt”l’) 
ENDIF 
FAUSc 
RETURN 
END 
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c 

C  MODULE  4  UNIT44 
C  UNIT  (USES:  UNIT  47 
C 

C  SUBROUTINE  ADOCQN 

C  USE:  THIS  SUBROUTINE  ALLOWS  AN  ADDITIONAL  CONSTRAINT  OR  VARIABLE 
C  TO  BE  ADDED  TO  A  PROBLEM  WHICH  HAS  ALREADY  BEEN  SOLVED  BY 
C  NODULES  2  OR  3.  THE  EFFECTS  OF  THE  ADDITION  ARE  CALCULATED 

C  AND  THE  NEN  TABLEAU  IS  PUT  INTO  A  BASIC  SOLUTION. 

C 

C  CALLED  BY:  FR06RAN  NAIN5A 

C  CALLS  :  SUBROUTINE  CHECK2 

C  SUBROUTINE  CHECK 

C 

C  VARIABLES: 

C  USES  :  V,K,VT.IFLAS,iNEQ.NXRN.CB,NEG.NEC,NLC,N6C,AQ,AF,B0,BF, 

C  CQ.CF,Z,INOEXL,BM 

C  MODIFIES  :  INOEXLfV,VT,K,AF,BF,CF,Z,DELTAA,NLC,N6C,«C 

C 

C  I  »  I  »  »  I  »  I  *  I  I  I  I  I  t  I  I  I  I  *  «  l  I  I  I  t  I  »  *  I  I  I  I  4 

(USES  UCHECK2  IN  UNIT47.C00E  OVERLAY 
SUBROUTINE  ADDCON 

INTE6ER  I ,  V, K , J , COL, VT,ROB, I FLAG, INEQ,MXKN,NEC.NGC.NLC, 
.C0N3TR,CB 

REAL  AG,AF,B0,BF,C0,CF,Z,BELTAA(20).&N 
CHARACTER  SELINP(2)t!,FNI10,ScL0UTIl,P(10m 
COMHQN/GNE/SELOUT.FN 

CDNH0H/TN0/VTfINDEXB,INDEXL.INDEXE,N6C,NLC,NEC,NEB(20),RXNN<BN 
(INCLUDE  COHVAR 

IF  (V.E0.20  .OR.  K  .EQ.  2C  )  THEN 
WRITE <  1 , ’  (5(/i,5X,”THIS  PROBLEM  IS  TOO  LAR6E  F0R”,/.4X 
.  ’’ADDITIONS.  ”>’) 

RETURN 
END  IF 

NRITEd.MADM  CHAR (12) 

NRITEd,’  (///,3X 

..’’THIS  SEGMENT  ALLOWS  YOU  TO  ADD  AN”, MX 
./’ADDITIONAL  CONSTRAINT  OR  VARIABLE  TO  ”,)’) 

NRlTEd/ (3Xf”AN  ALREADY  SOLVED  LINEAR  PROGRAMMING  ”,/,3X 
./’PROBLEM”,///)’) 

4*00  NRITEfl/ <9X,” DO  YOU  NISH  TO  ADD  A:”,//.!4X 
..  ”C)0N3TRAINT”,//.BX 

’OR”  i:) 

NRITEd/d4l,  ’’VIARIABLE”  ,//,10X 
.,  ’’SELECT  ””C””  OR  ””V””  ”,//)’) 

READ'S/ (ADM  SELINP'D 
IF  (BELINPd)  .Efi.  ’VM  THEN 

C  IF  A  VARIABLE  IS  ADDED,  IT  IS  PLACED  JUST  AFTER  THE  LAST 
C  VARIABLE  IN  THE  ORIGINAL  PROBLEM,  AIL  VARIABLES  TO  THE  RIGHT 
C  APE  MOVED  ONE  COLUMN  TO  THE  RIGHT.  ALL  INDICES  ARE  RESET. 
VT*VT*t 
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V=V+i 

INDEXL*1N0EXLM 
1NCEIG*!NDEX6*1 
IN£EXE*INOEXE*i 
DO  4420  C0L*VT.V+1,-1 
CF(C0L.,SCF<C3L-1) 

DO  4410  CONSTR* i,K 
OF  (CONSTR,  COL )  *AF  (CONSTR,  COL-11 

4410  CONTINUE 

4420  CONTINUE 

DO  4485  CONSTR*  1,K 
IF  (CB(CONSTR)  .SE.  V  (THEN 
CB CONSTR !  *C3  ( CONSTR  >+ 1 
END  IF 

4485  CONTINUE 

NR1TE(1,’(A1,///”)  CHAR (12) 

4411  NRITE(1.’(//,4X, "PLEASE  ENTER  THE  COEFFICIENT  F0R”,/,9X 
’’THE  OBJECTIVE  FUNCTION”,///)’) 

IF <V  .LT. 10) THEN 

NRI7EI1,M/,8».”C<”,I1,”)  *  ”,*)’)V 
ELSE 

NRITE(1,M/,7X,"C(”,!2,”)  =  ”,$)’)V 
ENDIF 

READ(5,’U0A1)’.»  (P:U,L*1.10) 

C  THE  INPUTS  ARE  CHECKED  FOR  VALIDITY. 

CALL  CHECK(P,INVAL,CO(V)) 

IF'.INVAL  .ED.  1)THEN 
NRITEII,’ (Al)’)  CHARU2) 

NRITEd, ’(//,, 5X,” INVALID  RESOFNSE,  PLEASE  REENTER”)’) 

SOTO  4411 
ENDIF 

NRITEll.MAi, ///)’)  CHARU2) 

4412  NRITE<1.’!//,4X,  "PLEASE  ENTER  THE  COEFFICIENT  FOR ”,/,«X 

.  , "EACH  CONSTRAINT”,//)’) 

DO  4430  CCNSTR=1,K 

NRITE(1,”.6X,”A1”,I2,”,”,I2,”)  *  ”,♦)’)  CONSTR, V 
READ(5,  ’  (10A1)’)  (P(U,L*1,10) 

CALL  CHECK (P , l NVAL , AO ( CONSTR , V ) ) 

IFdNVAL  .ES.HTHEN 
NRITEd,’  (Aj)’)CRAR<12) 

NRITE(l,’t//,4X, "INVALID  RESPONSE,  PLEASE  REENTER”, //)’> 
SOTO  4412 
ENDIF 

IF <NE6 (CONSTR)  .ED.  WHEN 
AO (CONSTR, V! *-AQ ! CONSTR, V) 

ENDIF 

4430  CONTINUE 

CF(Vi=-CO!V) 

C  THE  NEN  ADDITIONS  ARE  MULTIPLIED  BY  B-INVERSE  TO  6ET  A 

C  MODIFIED  FINAL  TABLEAU. 

DO  4495  CONSTR* l.K 

CF ( V ) *CF • V) +A0 ( CONSTR , V ) ICF ( CONSTR* I NOEXL- 1 ) 
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DELTAAf CONSTR) =0.0 
44«S  CONTINUE 

DO  4447  CONSTR* l, K 
DO  4494  1*1, K 

DELTAA/CDNS7R) *DEL7 AA (CONSTR) *AQ  U . V) tAF ( CCNSTS, 
I+lNDEIL-1) 

44«9  CONTINUE 

4497  CONTINUE 

CO  4498  CONSTR«l,r 
AF ( CONSTR , V )  *DE'lTAA  ( CONSTR ) 

4498  CONTINUE 

C  IF  1IN1748  FEROVED  THE  SIB  R  VALUE.  IT  IS  ADDED  BACK. 

DO  4474  CONS’ R«1,K 
IF  < INEB 00  ,NE.  0 y  THEN 
CF(CONSTR*INDEIL-li=CF(CONSTRtIND£XL-l)+BH 
ENDIF 

4474  CONTINUE 

ELSEIF  (SEL1NPU)  .EB.  ’CM  THEN 
C  IP  A  CONSTRAINT  IS  ADDED.  IT  IS  PLACED  AT  THE  B0TTOH. 

C  INDICES  ARE  RESET  AS  REQUIRED.  THE  COLUHN  OR  COLUMNS 

C  REQUIRED  FOR  THE  NEN  CONSTRAINT  ARE  ADDED  TO  THE  RIGHT  OF  THE 

C  EXISTING  COLUMNS. 

K=K+J 

WRITE 41,’ <A1)’T  CHARI  12) 

4413  NRITE'l.M//, 54. ’’PLEASE  ENTER  'HE  MEN  CONSTRAINT’)’) 

DO  4440  C0L=1,V 

MRlTE(l.’i/,l04.”AC\I2.”,”,l2,”'  *  ”»>’)  K,COL 
READ(5,M10AD’)  <PiL),L»l,lO> 

CALL  CHECK !P,INVAL.AF<K,CQL/) 

IFdNVAL  .EQ.  DTHEN 
HRITEU.MAl)’)  CHAR!  12) 

WRITE41,’  (//,4X,’'INVALID  RESPONSE. PLEASE  REENTER”)’) 
6QT0  4413 
ENDIF 

4440  CONTINUE 

WRITE ; 1 , ’  IAl,///)’)CHARil2) 

4441  NRJTEll,M'/,4X,”iS  CONSTRAINT  OF  THE  FORM  ”/•')’) 

NRITE!1,M104,”D  LESS  THAH”,,7,lOk 

.  ”2)  GREATER  THAN”, <7,19* 

,9*,’’0R”,//,i04, 

.  ”3!  EQUALS’  ,/)’) 

HEAD'S,’ (II)’)  SELINP(l) 

CALL  CH£CK2!SELINP,1,3, INVAL. INEQtK)) 

IF'INVAi.  .ED.  DTHEN 
WUTE<1,’!AI)’)CHAR(12) 

HRITEU, ’77, 44,  "INVALID  RESPONSE,  PLEhSE  REENTER”)’) 

SOTO  4441 
ENDIF 

INEB(K>»lNEfl(K)-I 
NfiiTEI'.’ (Alf//)M  CHAR (12) 

4414  NRITE!1,'(//, 44, ’’PLEASE  ENTER  THE  RI3HT  HAND  SIDE  ”,//)’) 
READ(5,’U0AI)’)(P(L),L*1.19> 


406 


CALL  CHECK (P,INVAL,IF<K)> 

1FUWAL  .Efi.  I /THEM 

«r;teu,'«ai)’)  char(12) 

NRITEd,’  1//.4X,  ”  INVALID  RESPONSE,  PLEASE  REENTER”)’) 
SOTO  MU 
ENDIF 
TEHP*0.0 

DO  4439  C0L=V+1,VT 
AF(K.COL)*0.0 
CONTINUE 

DO  4444  CONSTR-l.K-l 
TENP*TEMP+8F ( CONSTR ) RAF , CB (CDNSTR) ) 

CONTINUE 

lrCNEfiiK)  .£8.  0 > THEM 
IF (TEHP  ,BT.  BFIKHTHEN 
SOTO  4401 
ENOIF 

ELSEIF < INEQ(K)  .ES.  t  ) THEN 
IFITEHP  .LT.  BFtKDTKEN 
GOTO  4401 
ENOIF 
ELSE 

IF (TEMP  .NE.  3F (K) > THEN 
GOTO  4401 
ENDIF 
ENDIF 

NRITEd,’  (Alt’)  CHAR (12) 

NRITEd,’  (////, "THE  NEN  CONSTRAINT  NAS  SATISFIED  BY  THE”)’) 
NRITEd,’ d, 111, ’’ORIGINAL  SOLUTION”)’) 

IFLA6(2)*1 

FAUSE 

RETURN 

IF ( INEQ(K)  .Efl.  0)  THEN 

IF  THE  NEN  CONSTRAINT  IS  A  ‘LESS  THAN’,  A  SINGLE  COLUMN  IS 
ADDED. 

VT»VT*1 

NLC*NLCd 

DO  4450  C0NSTR=I,K-1 
AF ! CONSTR, VTt *0.0 
CONTINUE 

DO  4440  COL  *V+l.VT-i 
AF(K,COL)*C\Q 
CONTINUE 
AF(K,VT!*1.0 
CB(K)*VT 

DO  4477  CONSTR* I,  K 
IF (INEfi (CONSTR)  .NE.  OiTHEK 
CF !  CONSTR+  INDEXL-i  ‘  *CF  ( CONSTR+ INDEXL- 1  i  ♦  BM 
ENDIF 
CONTINUE 

ELSEIF  (IKES  <K>'  .ES.  It  THEN 

IF  THE  NEN  CONSTRAINT  NAS  A  ’GREATER  THAN’.  THO  COLUMNS 
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c 


r 


4470 

4480 

4481 

4490 


4478 

C 

C 

4405 

4415 

4425 

4479 


ARE  ADDED  AND  THE  INDICES  ARE  ADJUSTED  ACCORDINGLY. 

VT*VT+2 

N6C*N6C+1 

N£C*NEO! 

DO  4480  C0L*VT-1, VT 
CF(C0t)*G.0 
30  4470  C0NSTR«1.K*1 
AF<C0NSTR,C0Li=O.0 
CONTINUE 
CONTINUE 

DO  4481  CQL*V*i,VT-2 
AF<K,CDNSTR)=0,0 
CONTINUE 
AF(K,VT-1)*-1.C 
AF!K,VT)*1.0 
CB(K)*VT 

DO  4490  C0L«1,VT 
CF<C0U*CF<C0L)-AF(K,C0UI8H 
CONTINUE 
Z=Z“PF  <K) tBH 
CF(VT)=6H 

00  4478  COMSTR* 1 , K- 1 
1F(IN£Q<C0NSTR)  .HE.  01THEN 
CF (CONSTR+INDEXL-1 ) =>CF (C0NSTR*1NPEXL-1 ) +3N 
END1F 
CONTINUE 

ELSEIF < INE04K)  .£(.  2)  THEN 

IF  THE  NEW  CONSTRAINT  IS  AN  ■EQUALS*,  A  SINGLE  ARTIFICIAL 
VARIABLE  IS  ADDED, 

VT=VT+1 

NEC=NEC+! 

DO  4405  C0L«V+1,VT-1 
AF  <K,CDL)=0.0 
CONTINUE 

DO  4415  CCNSTR=1,K-1 
AF ICDHSTR, VT>*0. 0 
CONTINUE 
AF(K,VT)*1.0 
C8(K)*VT 

DO  4425  C0L«1,VT 
CF(C0U*CFiC0L»-AF(K,C0L!»5N 
CONTINUE 
Z*Z-3F(F)fBN 
DO  4479  CONSTR'l.K 
IFdNEQtCONSTR)  ,NE.  01  THEN 
CF (CQNSTR* INDEXL- 1 ) *CF (CONSTR+ INDEXL-1 ) +5N 
ENDIF 
CONTINUE 
ELSE 

NRITEIl,’ (Alt’  •  CHAR (12) 

NRITEI1, '(///, 5X, ” IMPROPER  RESPONSE’ ’,///)’) 

GOTO  4441 
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ENDIF 

C  COEFFICIENTS  IN  THE  NEN  CONSTRAINT  WHICH  REPRESENT  COLUHNS 

C  WITH  VARIABLES  IN  THE  BASIS  ARE  DRIVEN  TO  ZERO,  AND  THE  FULL 

C  CONSTRAINT  AND  RHS  ARE  ADJUSTED  ACCCRDIN6LY. 

DO  4435  C0N3TR«l,K-l 
!ENP*AF(K,C8(C0NSTF)> 

DO  4445  COL*l,VT 

AF <K , COL i «AF <K, COL) -AFICONSTR, COL) ITEHP 
4445  CONTINUE 

BF!K)*8F<K)-BF<C0NSTR)tTENP 
4435  CONTINUE 

ELSE 

NRITEU.MA1)’;  CHAR(!2) 

WRITE  1 1, r  l///,UI,”IHPROPER  RESPONSE”,//'/)’) 

SOTO  4400 
ENDIF 

IFLA8(3)S0 

C 

C  IF  ALL  OBJECTIVE  FUNCTION  COEFFICIENTS  AND  ALL  RHS  ARE 

C  N0N-NE6ITVE  AND  AN  ARTIFICIAL  VARIABLE  IS  IN  THE  BASIS  AT 

C  A  POSITIVE  LEVEL,  THEN  THE  PROSLEN  IS  INFEASIBLE 
C 

DO  4«65  C0NSTR*1.K 
IF(BF(CONSTR)  .LT.  -.0001! THEN 
J*1 
END  IF 
4465  CONTINUE 

DO  4475  C0L=1,VT 
1F(CF(C0L)  .LT.  -.0001) THEN 
J*l 
ENDIF 
4475  CONTINUE 

DO  44V3  C0NSTR=1,K 

IFiJ.EB.O.ANO.CB iCONSTR ) ,6E . INDE XE) THEN 
IF(BFtCONSTR)  .61.. 0401) THEN 
IFLA6(3i«l 
ENDIF 
ENDIF 
4443  CONTINUE 
RETURN 
END 
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c  t  l  t  I  M  l  t  i  (  I  t  I  (  t  l  t  l  I  t  t  t  t  l  I  I  I  I  I  «  I  t  I  I 

C 

C  HOODIE  4  UNIT4S 
C  UNIT  WISES:  UNIT  47 
C 

C  SUBROUTINE  SOLVE 

C  USE:  THIS  SUBROUTINE  ACCEPTS  BASIC  TABLEAUS  PR OH  SUBROUTINES 
C  RULCNS  AND  ADDCON  AND  DIRECTS  OTHER  SUBROUTINES  TO  3ETERHINE 

C  THE  FINAL  SOLUTION  AND  THEN  DISPLAY  AS  DIRECTED. 

C 

C  CALLED  BY:  SUBROUTINE  SELECT 

C  CALLS  :  SUBROUTINE  OPTS 

£  SUBROUTINE  NORK 

C  SUBROUTINE  TOISPL 

C 

C  VARIABLES: 

C  USES  :  IFLA6i7),INFP,0PTS 
C  MODIFIES  :  NONE 
C 

C  t  *  t  t  I  t  I  I  »  I  t  I  »  *  I  *  «  t  *  »  It  I  I  t  I  I  4  »  I  I  t  4  » 

SUSES  UCHECK2  IN  UNIT47.C0SE  OVERLAY 
SUBROUTINE  SOLVE 
INTEBER  PK,PR,0PTS,V,VT,C8 
REAL  AO.Af,BO,BF,CO,CF,Z,BH 
CHARACTER  SELOUT.FNtlB 
COHHON/Pi/OPTS,KFA,PK,PR 
CQHNGN/ONE/SELOUT,FN 

CCHHON/TNO/VT . IN3EXB, INDEXL, INDEXE, N6C,NLC, NEC, NE6(20) ,NXHN, BH 

cam/vm/im 

4 INCLUDE  COWAR 

C  SUBROUTINE  OPTB  IS  CAlLED  TO  DETERMINE  THE  CONDITION  OF  THE 
C  TABLEAU.  IF  THE  TABLEAU  IS  EITHER  UNBOUNDED  OR  INFEASIBLE.  THE 
C  PROGRAM  RETURNS  TO  THE  MAIN  MENU.  IF  IT  IS  NEITHER  OF  THESE 

C  BUT  IS  OPTIMAL,  THE  SUBROUTINE  TDISPL  IS  CALLED  TO  DISPLAY  THE 

C  RESULTS.  OTHERNISE.  SUBROUTINE  NORK  IS  CALLED  TO  COMPLETE  A 
C  BASIS  CHANGE. 

4500  CALL  OPTB 

IF<3PTS  .Efl.  I  .OR.  IFLAGT7)  .EG.  I ) THEN 
!F(IFLA6<7>  .ES.  1  .OR.  INFP  .Ell.  I) THEN 
RETURN 
EHDIF 
END  IF 

IF (OPTS  .E8.  1)  THEN 
CALL  TDISPL 
RETURN 
ELSE 

CALL  ttCRK 
6CT0  4500 
END  IF 
RETURN 
END 
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C  $  »  I  I  M  I  I  »  $  t  I  I  I  I  »  »  I  I  I  I  It  I  t  t  I  t  I  I  I  I  »  I 

C 

C  MODULE  4  UNIT45 
C  UNIT  4 USES:  NONE 

C 

C  SUBROUTINE:  OPTB 

C  USE:  THIS  SUBROUTINE  DETERMINES  IF  A  TABLEAU  13  OPTIMAL, 

C  UNBOUNDED,  INFEASIBLE,  MULTIPLE  OPTIMAL,  OR  DESENERATIVE. 

C  IF  IT  13  NONE  OF  THESE,  OTHER  PARAMETERS  ARE  DETERMINED  TO 
C  PERFORM  A  BASIS  CHAN6E. 

C 

C  CALLED  BY:  SUBROUTINE  SOLVE 
C  CALLS  :  NONE 

L 

C  VARIABLES: 

C  USES  :  V.NGC.NLC.AO,AF,8G.BF,CO,CF,Z,CB 
C  MODIFIES  :  IFIA6.1NFP, SUES, XFA,PK, PR, OPTS, SPR 
C 

c  I  I  I  I  I  I  I  I  t  4  I  I  t  I  I  I  I  I  I  I  I  I  »  I  I  »  t  I  I  I  I  »  I  I 

SUBROUTINE  GPTB 
IKTE6ER  FK,PR.QPTS,V,VT,CB 
CHARACTER  SEL3UT.FNI10 
CONHON/ONE/S£LOUT,»« 

COHMON/P: '0?TS,KFA,PK,PR 

COMMON/TNO/VT,  INDE.T6,  INDE)IL,INDE!(E,N6C,NLC.NEC,NES(20)  ,MXMN,BM 
COMMON/ THREE.'  INFP 
♦INCLUDE  COMVAR 
IFIA6<4)*0 
lFLA6-6>*0 
IFLAS<7)«0 
IFLA6(B)*0 
IFLA6'9)*0 
UPTS*0 
INFP*0 
&NES--0.0 
KFA«V*NSCtNLCM 
SOTO  TOO 

C  THE  PIVOT  COLUMN  IS  FOUND, 
no  00  130  J*l,V! 

IF  (CFIJ)  .BE.  BKBITHEN 
6070  130 
ELSE 

GN£6*CF(J) 

NK*J 
ENDIF 
130  CONTINUE 

C  OPTIMALITY  IS  DETERMINED. 

IF  !ABS(3NES)  .LT.  0.0001)  THEN 
OPTS* l 
ENDIF 

C  INFEASIBILITY  IS  DETERMINED, 

00  150  1*1. t 
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IF  <CB(I)  .LT.  KFfl)  THEN 
IFtBFiD  .LT.  -O.OOOODTHEN 
INFP»1 
END1F 

ELSEIF<8FiI)  .LT.  -O.OOOODTHEN 
SOTO  150 
ELSE 
INFP=1 
ENDIF 
150  CONTINUE 

C  THE  LEAV1N6  BASIC  VARIABLE  IS  FOUND. 

IF (OPTS  .EQ.  0) THEN 
SPR=10.E8 
DO  190  1=1, K 

iF(AF(!,PK)  .LE.  .0001)  THEN 
SOTO  190 

EL3EIF  <9r(I)/AF(I,PK)  .6E.  SPR)  THEN 
SOTO  190 
ELSE 

SPfi=6F(I)/AF(I,PK) 

FR=I 

ENDIF 

190  CONTINUE 

IF ( SPR  .BE.  10. Ei) THEN 
1FLA6(7)=1 
ENDIF 
ENDIF 
SOTO  500 

C  DUAL  PIVOTS  ARE  USED  UNLESS  A  NEBATIVE  OBJECTIVE  FUNCTION 
C  COEFFICIENT  IS  FOUND. 

300  DO  310  J=i,VT 

IF(CFIJ)  .LT.  -O.OOOODTHEN 

soto  no 

ENDIF 
320  CONTINUE 

C  THE  PIVOT  RON  IS  FOUND. 

DC  340  1=1, K 
IFiBFiD  .SE.  S NFS) THEN 
SOTO  340 
ELSE 

GNE6=Bni) 

PR=I 
ENDIF 
340  CONTINUE 

IFiABSiSNEB)  .LT.  O.OOOD  THEN 
0FTS*1 
SOTO  500 
ELSE 

SFfi=-'.O.ES 
DO  370  J=1,VT 
DO  340  1=1, K 
IF'CBID  .EO.  DTHEN 


GOTO  370 
ENDIF 

360  CONTINUE 

IFiAFiFR.J)  ,6E.  -.0001) THEN 
GOTO  370 

£LSEIF(CF(3)/AF<PR,J)  .Lt.  SPR)THEN 
SOTO  370 
ELSE 

SPR«CFIJ!/AFIPR,J) 

PK*J 

ENDIF 

370  CONTINUE 
ENDIF 

IF!SPR  .Lt.  -10.E6) THEN 
IFLA6(7)*1 
ENDIF 

500  IF  (OPTS  .Efi.  UTHEN 

IFUNFP  ,EQ.  1)  THEN 
SOTO  600 
ENDIF 

DO  540  J=1,VT 
IFLAS(3)*0 
DO  520  1*1,  K 
IF(CBU)  .Efi.  J)  THEN 
iFLA6«B)*l 
ENDIF 

520  CONTINUE 

IF  (IFLAS(8)  .EC.  0>THFN 
IF(ABS(CF(JD  .LT.  .0001  1THEN 
IFlA6(4)*1 
ENDIF 
ENDIF 

540  CONTINUE 
ENDIF 

IF'IFLA3<7)  .Efl.  I ) THEN 
SOTO  600 
ENDIF 

DO  560  1*1. k 

IF(ABS(EF(D)  .le.  .OOODTHEH 
JFLAG(6)*1 
ENDIF 
560  CONTINUE 

C  THE  CONDITION  OF  THE  TABLEAU  IS  PRINTED. 

600  IF  (SELGOT  .Efi.  ’S’  .OR.  5EL0UT  .Efi.  ’B’)  THEN 
IF  (OPTS  .Efi.  1  .OR.  IFLA6!7)  .Efi.  DTHEN 
NRITE'l,’ UO*, ’’FINAL  TABLEAU  -  ”.»)’> 
IFUNFP  .Efi.  DTHEN 

NRITEil,’ ("INFEASIBLE”)’) 
ELSEIF(IFLA6(7)  .Efi.  DTHEN 
NPITEd.’  ("UNBOUNDED”)’! 

ELSE 

WRITE ( 1 . ’ ( ’ ’ OPTIMAL’  ’ )  ’ ) 
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ENDIF 

IF-'IFLftB(i)  .Efi.  1ITHEN 
IMITE«1 ,  ’  (261,  ’’0E6ENERATE” )  ’  > 

ENDIF 

IF (OPTS  .E6.  1  .AND.  IFLA614)  .ES.  DTHEN 
WRITE ( 1 . ' (5X, ’ ’MULTIPLE  OPTIHAL  SOLUTIONS  EXIST") ’) 
ENDIF 
PAUSE 
ENDIF 
ENDIF 

IF  (SELQUT  ,EQ.  .OR.  SELOUT  .EB.  ’B’>  THEN 
IF  (OPTS  .EB.  1  .OR.  IFLASI7)  .EB.  li THEN 
NRITE(fc.’(////,10X, "FINAL  TABLEAU  -  ”,*)’) 

IF  (INF®  .EB.  DTHEN 

HfilTEli,’ •’'INFEASIBLE'')’) 

ELSEIFilFLAGC)  .EB.  DTHEN 
*RITE(6,’(r  UNBOUNDED”)’) 

ELSE 

NR1TE'6.’(”0PTIHAL”)’) 

ENDIF 

IF (IFLA6I6)  .EB.  DTHEN 
NRITEI6, ’ (261. ’’DEGENERATE’  *>*) 

ENDIF 

IF  (OPTS  .EB,  1  .AND.  IFLA6I4)  .EB.  DTHEN 
NRITEI4, ’ (SI. ’ ’NUL!  1PLE  OPTIHAL  SOLUTIONS  EXIST”)’) 
ENDIF 

WRITE  <&, ’ (//)’) 

ENDIF 

ENDIF 

IFLA6(9)=1 

RETURN 

END 


c  It  »  I  I  I  t  I  I  I  »  I  *  »  *  *  I  t  t  It  I  *  I  I  I  I  *  t  I  I  I  I  »  I 
c  t 

C  NODULE  4  UNIT45  I 

C  UNIT  4USES:  NONE  t 

C  t 

C  SUBROUTINE:  WORK  » 

C  USE:  THIS  SUBROUTINE  PERFORMS  A  PIVOT  ON  4  BASIC  TABLEAO  t 

C  ACCORDING  TO  PARAMETERS  DETERMINED  BY  SUBROUTINE  OPTB.  * 

C  t 

C  CALLED  BY:  SUBROUTINE  SOLVE  * 

C  CALLS  :  NONE  I 

C  t 

C  VARIABLES:  t 

C  USES  :  PK.PR,OPTS.V,VT,CB  I 

C  MODIFIES  :  AF,BF,CF,Z  I 

C  t 

C  »  I  t  *  It  I  I  »  I  *  I  I  I  t  I  I  I  I  I  I  I  »  t  »  I  I  I  I  I  i  M  «  t 
SUBROUTINE  WORK 

INTESER  PK,PR,OPTS,V.VT.CB,KFA 

REAL  PELE.HGLD 

COMMON/ PI /OPTS, KFA,PK,  PR 

COMMON/IHO/VT,  INDEYG,  tNCEXL,INDEXE,N6C,NLC.!4EC,NE6(2di ,  MINN,  BN 
I  INCLUDE  CGNUAR 

C  THIS  SUBROUTINE  PERFORMS  A  BASIS  CHANGE  WITH  A  PIVOT  RON  AND  PIVOT 
C  COLUMN  DETERMINED  BY  SUBROUTINE  OPTB. 

PELE=AF'PR,PK) 

DO  ZOO  J=l,VT 
AF!PR,J)sAFIPR,J)/PELE 
200  CONTINUE 

BF(PR)=BF(PR)/PELE 
CBIPPl-PF 
DO  300  1=1. K 
IF' I  .E6.  PR) THEN 
SOTO  300 
END  IF 

hOi.D=AF  ( I ,  PK) 

DO  250  3=1, VT 

AF(I,g)=AF(I, j)-HOLDIAF(PR.J) 

250  CONTINUE 

BF !  I )  =BF  ( 1 1  -HOLD  IBF I  PR ) 

300  CONTINUE 
HOLD=CF'.FK> 

DO  350  J*1,VT 
CF(3)=CF;j)-HOLD»AF(PR,3) 

350  CONTINUE 

Z=2-H0LDtBFi»R) 

RETURN 

END 
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C  i  »  i  t  i  t  i  t  i  I  I  I  I  i  t  1 1  I  I  i  t  t  i  i  »  <  I  i  *  t  i  i  I  I 

c 

C  NODULE  4  UNIT4S 
C  UNIT  (USES:  NONE 

r 

C  SUBROUTINE:  TOISPl 

C  USE:  IrilS  SUBROUTINE  DISPLAYS  THE  FINAL  TA3LEAU  ACCORDING  TO  THE 
C  FORMAT  AND  CONDITIONS  SET  BY  THE  USER. 

C 

C  CALLED  BY:  SUBROUTINE  SOLVE 
C  CALLS  :  NONE 
C 

C  VARIABLES: 

C  USES  :  AF . BF . CF , 2 , SELOUT . FHT  i 

C  MODIFIES  :  NONE 
C 

CtltttlMtltlltltltilttttMlitfttl! 
SUBROUTINE  TDISPL 

CHARACTER  P ( 10) I 1 , QBJNt 10 . SELOUT , FKt 10 
I NTESER  PK, PR , OPTS, V, VT , CB, DUAL. T , FHT 
COHHON.'QXE/  SELOUT ,  FN 

C0NRGN/TM/VT.1ND£>6.INPE/L,INDEXE,N6C.NLC,NEME6(20>,MXNN.BH 
COMMON/?! /OPTS, KFA ,  PK ,  PR 
(INCLUDE  COMVAR 

C  THIS  SUBROUTINE  DISPLAYS  THE  FINAL  TABLEAU  IN  VARIOUS  FORMATS  ON 
C  SCREEN,  PRINTER.  OR  BOTH  SIMULTANEOUSLY. 

NRITEU, ’(AH’)  CHAR ( 12)  • 

100  HRITE(1,M5(/),4X.”D0  YOU  WANT  THE  OUTPUT  IN  •’!’> 

NRITEU,’  (/,10X,”i)  t  FORMAT  ”)’) 

NRITEIl,’  1/.16X,  "OR”)’) 

NRITEU. M/.10X, ”2)  F  FORMAT  ”>’) 

READiS.MAl)’)  ?U) 

CALL  CHECK2 i P , 1 , 2, I NVAL , FMT ) 

IF  (INVAL  .E8.  1)  THEN 
NRITEU, ’(fill'/  CHARU2! 

NRITEU,’ >//,5X, ’’IMPROPER  RESPONSE, PLEASE  REENTER”)’) 

GOTO  100 
END  IF 

NRITEU,’ (Ai)’)  CHARU2) 

110  FORMAT (A) 

T=(VT/5)U 

IF (SELOUT  .EQ.’S’. OR. SELOUT  ,E3.!B’)THEN 
DO  470  NM.T 
NRITEU. ’  USX, O’) 

DC  2(0  J«(N»5)-4,N(5 
IF < J  .GT.  VTITHEN 
SOTO  290 
ENDIF 

NRITEU,  280)  J 

280  FORMAT  (5X,’X(’,L  ’>\3X,() 

290  CONTINUE 

IF <T  .EQ.  I  .OR.  N  .£9-  T) THEN 


WITEU.MO) 

300  F0R«AT<6X,’RKS’ ) 

ELSE 

NRITEd,’  (”  ”)’> 

ENDIF 

NRITEd,’ i”0Bi3  FUNCTION’ ’ .IX,$)M 
DO  320  0S(NI5)-4.NI5 
IF < J  .ST.  VT1THEH 
GOTO  320 
ENOIF 

IF (FHT  .EQ.  1 • THEM 

NRITEd, '  (1PE12.5,  Il.t)  ’ )  CF  i  J ) 

ELSE 

HRITEd,’  iF12.5,lX,J}’«CF(i) 

ENOIF 

320  CONTINUE 

IF <T  . EQ. 1  .OR.  N  ,EQ.  T* THEN 
IFIFHT  .EQ.  H  THEN 
NRITEd,'  =  ”,lFEi2.5,lX»MZ 
ELSE 

NRITEd, ’<”*  ”,F12.5,m’)Z 
ENCiF 
ELSE 

NRITEd,’  (”  ”)’) 

ENCIF 

NRITEd, '(’’ON  NAME  VAFI’ ’ . 2X,65< ’ ’ t” > ) ! > 

DO  400  L*U 
HRITE41,’ iI2.7X.»)’>L 
NRITEd,  MU,  12.11,  *)’)CB(L) 

DO  370  J=<N*S)-4,Nt5 
IF'J  .6T.  OT)THEN 
GOTO  370 
ENOIF 

IF (FHT  .EQ.  1ITHEN 

HRITEd,’dPE12.5.1*,»)’)AF:L,J! 

ELSE 

WRITER.’  (F12.5,lXf*)’}AF<L.J) 

ENOIF 

370  CONTINUE 

I? IT  .£9.  1  .OR.  N  .EQ.  T7THEN 

IF’FNT  .EQ.  DTHEN 

NRITEd.  ’  lPE12.5r)P(2>,8F(L> 

ELSE 

NRITEd, ’Ml, 1X,F12.3)’>P<2',BF  II) 
ENOIF 
ELSE 

NRITEd. M”  ”)’) 

ENOIF 

400  CONTINUE 
PAUSE 

NRITEd, I10)CHARd2> 
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470  CONTINUE 

WRITE(1,11Q)CHAR(12) 

DO  530  1*1. < 

IFiFMT  .EQ.  DTHEN 

WRITEil,  ’  (10Xt”X{”,I2,  ”)  *  ”, 
ELSE 

NR1TEU,’  (10X.”X(”,I2.”)  *  ”, 
ENDIF 
530  CONTINUE 

IF (FHT  .10.  DTHEN 

WRITEd,’ (/14X,”2  *  ’MPE12.5)’): 
ELSE 

NRITE(1,’(/I4X.”Z  *  ”.Fl2.5)')I 
ENDIF 
END  IF 

IFISEuOUT  .EQ.’F’.OR.SELQ'JT  .EC. ’3’ (THEN 
DO  1470  N*1,T 
NRITEift,’  !13X,I)’> 

DO  1290  J*(N45)-4.N»5 
IF ( J  .ST.  UT J THEN 
60T0  1290 
ENOIF 

WRITE  <6, 1230) J 

1230  FCRWAT(5X,’X(»,!2,,),,3X,*? 

1290  CONTINUE 

IF<T  .ES.  1  .OR.  N  .Efi.  T)THEN 
WRITE  (6. 1300! 

1300  FORHAT.'AX,  :RH3’) 

ELSE 

NR!TE<6.’<”  ”)’) 

ENDIF 

WRITE (6.’ (’’OBJ  FUNCTION”, IX,*/’) 

DC  1320  J*(NI5)-4,NI5 
IFtJ  .6T.  VT)THEN 
SOTO  1320 
ENDIF 

lFiFNT  .EQ.  DTHEN 

WRITER,  M1PE12.5,  IX, $)’>CF(J) 
ELSE 

WRITE (4, ’ (F12. 5, IX, » ’ JCF (J) 
ENOIF 

1320  CONTINUE 

IF (T  .cfl.l  .OR.  N  .EQ.  DTHEN 
IF (FIT  .E3.  1)  THEN 
NRITEID,’  (”»  ’’.1PE12.5, IX) ’ ( Z 
ELSE 

NRITE(6,M”*  ”,F!2.5, IX) ’ )Z 
ENDIF 
ELSE 

NR!TE<6,’(”  ”)’) 

ENDIF 

NRITE(6,'(”CN  NAHE  VAR”,2I,55<”< 


1PE12.5)  MCB<I)  ,FFiI) 
F12.5)’>CB<I),BF(I! 


”))’) 
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DO  1400  L*1,K 
NRlTEt6,'iI2,7X,4)’)L 
NR1TE<6,M1X,I2.1X,*>’)CB(L) 

DO  1370  MNI5J-4.NI5 
IF 4 J  .ST.  VT1THEN 
60TC  1370 
END  IF 

1F1FNT  .EB.  DTHEN 

NR1TE16,’ (1FE12.5.1X,*)’>AF<L,J) 

ELSE 

NRITE(6,’ !F12.5,1X,$)’)AF(L.J) 

END  IF 

1370  CONTINUE 

IF  IT  .EB.  !  .OR.  N  .£3.  T>THEN 
Pi2)*’*’ 

IF<F«T  .EQ.  DTHEN 

HMTE(6I!'A1,1X,1?E12.5),>P<2>,BF(L) 

ELSE 

NRITEI6,’ !A1,1X,F12.5)’)P(2),BF!L) 

END  IF 
ELSE 

ttITEU.M”  ”)’) 

ENCIF 

1400  CONTINUE 

NRITE16,  M////JM 
1470  CONTINUE 

DO  1580  1*1, K 
1F1FNT  .EQ.  DTHEN 

WITE14,M!0I,”X(’M2,”)  *  ’  ,  1PE12.5) * )CBII) , BF i I) 
ELSE 

NRITE16,’ (101,  **X<M,12,”)  *  ",F12.5)’)CB(11,BF(D 
ENDIF 

1580  CONTINUE 

IF1FHT  .E8.  DTHEN 

NR1TEI6,'  1/14X, ”2  *  ”flPEt2.5>’)Z 
ELSE 

NRITE<V(/14T,”Z  *  ”|F12.5)M2 
ENOtF 

NRITE16,MAD’)CHARU21 

ENDIF 

PAUSE 

RETURN 

END 
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c i it 1 1 1 » i *  1 1 1 1 » 1 1 1 » 1 1 « 1 1 1 1 1 1  *  1 1  * » i » 

c 

C  NODULE  ♦  UNIT47 
C  UNIT  (USES:  NONE 

r 

» 

C  SUBROUTINE  CHECKS 

C  USE:  THIS  SUBROUTINE  ACCEPTS  KEYBOARD  NUMERIC  INPUTS  AS 
C  ‘CHARACTERS'  AND  RETURNS  THE  INTEGER  EQUIVALENT  IF  THE 
C  INPUT  IS  OF  THE  CORRECT  TYPE. 

C 

C  CALLED  BY:  SUBROUTINE  NULCN6 
C  SUBROUTINE  ADDCON 

C  CALLS  :  NONE 


C  i 

C  VARIABLES: 

C  USES  :  E,D,HVAL  I 

C  MODIFIES  :  INVAL.INEN 

C  l 

C  I  (  I  I  *  «  »  I  »  *  I  I  I  t  I  I  I  I  I  I  I  t  I  I  »  I  »  I  »  »  I  t  I  » 

SUBROUTINE  CHECK2<E.D,HVAL, INVAL.INEN) 

CHARACTER  ALLQHilim,EUO)ti 
INTEGER  D.HVAL 

DATA  ALl0H/My2Y3V«V5Y6Y7V3V?V0Y  ’/ 

INVAL=0 
DO  4710  1*1, D 

C  EACH  CHARACTER  IS  CHECKED  FOR  VALIDITY. 

DU  4700  J-1,10 
1F!E(1)  ,E9.  ALLON(ti)  (THEN 
C  SPACES  ARE  IGNORED. 

60T0  4710 

ELSEIF(cU)  . EQ . ALLOW 4 J I ) THEN 

C  IF  THE  CHARACTER  IS  A  NUMBER,  THE  VALUE  OF  THE  NUMBER 

C  BEING  ASSEMBLED  IS  MULTIPLIED  BY  10  AND  THE  VALUE  OF  THE 

C  MEN  CHARACTER  IS  ADDED. 

INEN=INENI10»ICHAR»E!I)'-48 
SOTO  4710 

ELSEIFU  .EQ.  10ITHEN 

C  IF  THE  CHARACTER  DOES  NOT  FIT  ONE  OF  THE  ABOVE 

C  DESCRIPTIONS,  AN  INVALID  FLAG  IS  SET.  AND  THE  PROGRAM 

C  RETURNS  TO  GET  A  NEW  INPUT. 

INV4L*1 
INEN*0 
RETURN 
END  IF 

4700  CONTINUE 
4710  CONTINUE 

1F(INEN  .EQ.  0  .OR.  INEH  .6T.  HVAL) THEN 
INVAL*1 
IN£H*0 
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RETURN 

EKC1F 

RETURN 

END 


I 


c  I  I  t  I  t  I  I  t  I  t  t  I  I  M  I  M  t  t  I  I  t  «  t  t  I  t  t  t  t  I  (  I 

C 

C  MODULE  4  UNIT47 
C  UNIT  fUSES:  NONE 
C 

C  SUBROUTINE  CHECK 

C  USE:  THIS  SUBROUTINE  ACCEPTS  KEYBOARD  NUMERIC  INPUTS  AS 
C  'CHARACTERS'  AND  RETURNS  THE  REAL  VARIABLE  E8UIVALENT 
C  IF  THE  INPUT  IS  OF  THE  CORRECT  TYPE. 

C 

C  CALLED  BY:  SUBROUTINE  HULCN6 

C  SUBROUTINE  ADDCQN 

C  CALLS  :  NONE 

C 

C  VARIABLES: 

C  USES  :  E 

C  MODIFIES  :  INVAL.RNEN 

C 


umtttmmit 


C  M  tl  I  M  M  I  I  M  M  I  M 

SUBROUTINE  CHECK (E. INVAL.RNEN) 

CHARACTER  ALLGMU4ill,£i!0>41 
REAL  N 

INTESER  DEC IMA 

DATA  ALLOH/’rf’2,,’3,,’4,,’5,,’4’,’7’,’9,«,9’,’0’f 
’/ 


RNEN«0.0 
M=.l 
!NVAL*0 
■  DECIMAL 
NEB AT *0 
DO  4740  1*1,10 
IF <E ( I )  .£8.  ALLOW < 1 4) > THEN 
SOTO  4/40 
END1F 

DO  4730  0*1,13 
IF(E(I)  ,E8.  ALLONUDTHEN 

C  IF  VALID  SPECIAL  CHARACTERS  ARE  PRESENT,  FLA6S  ARE  SET 

C  ACCORDINGLY.  IF  THE  CHARACTER  IS  A  NUMBER.  THE  NUMBER 

C  WHICH  IS  BE I NS  ASSEMBLED  IS  MULTIPLIED  BY  10,  AND  THE  VALUE 

C  OF  THE  HEN  CHARACTER  IS  ADDED. 

IFiDECIMA  .EQ.  I) THEN 
SOTO  4710 


ELSEIf (E'i)  .£8.  ’-’(THEN 


NESAT*! 

80T0  *740 

ELSEIFIEU)  .E8.  ’ . ’ > THEN 


CECIHA*! 

SOTO  4740 
ELSE 

RNEM*RN£NI10+ICHAR(E(1) (-48 
SOTO  4720 
END  IF 
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4719  RNEN*RNEN+fICHAR(E<I)>-48)IH 
IWU.l 

GOTO  4720 

ELSEIFU  .ES.  13)  THEM 
INVAL*1 
RNEN»0.0 
RETURN 
ENPIF 
6010  4730 

4720  J»13 

4730  CONTINUE 

4740  CONTINUE 

C  IF  THE  NUNBE.R  IS  NEGATIVE,  THE  VALUE  OF  THE  ASSEMBLED  REAL  KUHBER 
C  IS  SNITCHED. 

IF'NEBAT  ,E0.  DTHEN 
RN£N*-RNEN 
ENDIF 
RETURN 
END 


C44444444444I4I444444I44444444444444 
c  4 

C  NODULE  4  UN1T48  4 

C  UNIT  (USES:  NONE  4 

C  4 

C  SUBROUTINE  RETR1V  4 

C  USE:  THIS  SUBROUTINE  READS  ALL  REQUIRED  SENSITIVITY  ANALYSIS  DATA  4 

C  AND  PARANETERS  FROM  A  DISK  FILE.  IT  REARRANGES  THE  DATA  AND  4 

C  CONFUTES  OTHER  PARANETERS  TO  ASSIST  IN  THE  ANALYSIS.  4 

C  4 

C  CALLED  BY:  PR06RAN  NAINSA  4 

C  CALLS  :  NONE  4 

C  4 

C  VARIABLES:  4 

C  USES  :  V,K, VT, IMEQ, MEB, 80. IFLfiS  ? 10)  4 

C  NOTIFIES  :  INEQ.NE6,A0,AF,B0,BF,CF.BR  4 

C  4 

C  4  4  4  4  4  4  4  4  4  4  4  4  I  4  4  4  4  4  4  I  4  4  I  4  4  4  4  4  4  4  4  4  I  4  I 
SUBROUTINE  RETRIV 

INTEGER  I , V, K . J. COL, RON.  IFLA6,  INEfi, VT , CB, CGNSTF;, NEB 
., SLACK, ARTVAR 

REAL  AG,AF.B0,BF,C0,CF,Z,TENPA(20,20>,TERPC(2D>,BH, 

.TEHPi20) 

CHARACTER  PN420. FN4 10, SELINPT 10) 41 . SELOUT 
CQNRON/QNE/ SEL0UT ,  FN 

CONHON/TNO/V7. IKDEXS, INDEXL, INDEXE, NGC, NLC. NEC, NE6 (20) , KXHN, BN 
(INCLUDE  C3NVAR 

NR!TE(1,’(A1)’)  CHARU2) 

NAITE<1.’(3</), 57, ’’ENSURE  DISK  LP2:  IS  AVAILABLE  ”.5</>>’> 

PAUSE 

C  THE  NAHE  OF  THE  FILE  KITH  THE  DATA  IS  READ. 

0PEN(7fF!LE*’LP2:LPDATAN,,STATUSs,0LD’.FQRN*’UNF0RNATTED’ > 

READ* 7)  FN 

NR1TE'.1,’(A1)’)  CHARI  12) 

C  THE  USER  IS  ALLOWED  TO  CHANGE  THE  DATA  FILE  NANE  IF  DESIRED. 

4000  NRITEI1,’  (5(d,87,”THE  CURRENT  DATA  FILE  IS  ”//,I4X,AI0,///)’)FN 
WRITE (*p’  I5X.”D0  YOU  NISH  TO  USE  THIS  TABLEAU”, S(/))!> 

READ  (5,*  (AliM  SELINPli) 

IF  ISELINP'l)  .EQ.  ’N’)  THEN 
NRITEIl.’(Ai)’)  CHAR (12) 

NRITEI1, ’(51/1. 27, ’’PLEASE  ENTER  THE  KEN  VOLUHE:FILENANE”/)’) 
NRITE(1,’(131,”E6.  LP2:TEST1”//)’! 

READd,’ !A10i’)  FN 
REMIND  7 
NR1TE(7)FN 

ELSE IF  (SELiNP'l)  .NE.  *Y’»  THEN 
NRITEU,’ (AS)’)  CHAR (12) 

NRITEII,’ (57. ’’INVALID  RESPONSE,  TYPE  ””Y””  OR  ””N””  ” 

.  ,///>’) 

SOTO  4000 
ENDIF 

CLOSE  (7,  STATUS*’  KEEP’ ) 
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UNITED, MAI)’)  CHARI  12) 

WRITE II,’  (5(/) f  7X.  *  'ENSURE  THE  DISK  CONTAINING" ) ' ) 

NRITEIl,  M/,121, AID)*)  FN 

WITEU, ’  (//,  121, ’ •  IS  AVAILABLE”///) ’ ) 

PAUSE 

C  THE  SATA  FILE  IS  READ. 

i)PEN(3.F!LE*FN, STATUS* '  OLD’ ,  FORK*  ’  UNFORBATTEB’ ) 

READ  (3)  PN.  C1XHN,  Kf  V ,  IFLA6I5/ 

DO  4310  1*1, K 
READ (3) 

DO  4820  J*1,V 
READ<3)  AO(l.J) 

4820  CONTINUE 
4810  CONTINUE 

DO  4830  J*1,V 
READ! 3)  CG(J) 

4830  CCNT1NUE 

REA0I3) IFLA6I 10) . VT 
DO  4840  1*1,  K 
RE6DI3)  BFtI),CBU) 

DO  4850  J=1.VT 
READ (3)  AF(I,J) 

4350  CONTINUE 
4840  CONTINUE 

DO  4860  3*1, VT 
READ I 3)  CF(J) 

4360  CONTINUE 
READ (31  Z 

CLOSE ( 3, STATUS* ’ KEEP ’ ) 

NRPEU.MAl)’)  CHARI  12) 

NRITEI1.M5I/), 81, "ENSURE  LP2;  IS  AVAILABLE "/////>’) 

PAUSE 

N6C=0 

MLC*0 

NEC=0 

DO  4861  CQNSTR*1,K 
NEBIC0NSTR)*0 

4361  CONTINUE 

C  EACH  CONSTRAINT  IS  ALTERED  IF  THE  PROBLER  HAS  A  NINIHIZATI9N  AND 

C  THE  CONSTRAINT  NAS  A  'SREATER  THAN"  OR  IF  THE  GRIS INAL  CONSTRAINT 

C  HAD  A  NEGATIVE  RI6NT-HANAB  SIDE  (NOT  IHNIHIZATION). 

DC  4870  CCNSTRM.K 
iF(IFLAG<10)  .EQ.1ITHEN 

IF(INEPtCOMSTR)  . EO.DTHEN 
INEfl(CONSTR)  *  0 
NES(CONSTR)  *  1 
30<CGNSTR)*-B0(CGNSTR) 

DC  4805  COL-l.V 
AC (CONSTR, COL ) »-A0 ( CONSTR, COL) 

4805  CONTINUE 

END1F 
ELSE 
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IF  IM(CONSTR)  .LT.  -9.00001  )  THEN 
NE6(C0NSTRI*1 
BO(CONSTR)  *  -  BQ(CDNSTR) 

00  4200  J-I.V 

A0(C0NSTR,J)  »  -AOICONSTRJ) 

4200  CONTINUE 

IF  IINEOICDNSTR)  .£0.  0)  TIEN 
INEB(CORSTR)  *  t 

ELSEIF  IINEQtCONSTR)  .E9.1  I  THEN 
INEB(CDNSTR)  *  0 
ENDIF 
ENDIF 
ENDIF 

C  DETERMINE  INDICES 

IF  (INEfi(CONSTR)  .EB.  G)  THEN 
NIC  *  NIC  +1 

ELSEIF  CNEO(CQNSTR)  .EB.t  )  THEN 
N6C  *  NSC  +1 
ENDIF 
4870  CONTINUE 

INDEX6  =  V  +  1 
INDEX L  *  INDEX B  *  NSC 

INDEXE  -  1NDEXL  ♦  NLC 

NtC=K-N6C-NLC 
SLACK  *  0 

ARTVAR  «  G 

90  111  CONSTR-ifK 
TEHF(CCNSTR)=G 
111  CONTINUE 

DO  4899  C0NSTR*1,K 

C  FIND  THE  COLUHN  ASSOCIATED  NITH  THE  CONSTRAINT 
IF1INE3IC0NSTR)  .EB.OITHEN 
COL-INDEXL  ♦  SLACK 
SLACK  =  SLACK  ♦  1 

else 

COl=INDEXE  ♦  ARTVAR 
ARTVAR  *  ARTVAR  *  1 
ENDIF 
C 

C  REARRANSE  THE  LAST  K  COIUHNS  TO  PUT  THEN  IN  THE  B  INVERSE  ORDER 

C  TEMPORARILY  HOLD  THE  VALUES  OF  CfJ)  AND  Ail,J>  IN  TEMP  UNTIL 

C  THEY  ARE  SORTED  OUT 

C 

DO  4890  RON  *  1,K 
TEHP A  t  RON , C0HST3 ) *AF ( RON , COL ) 

TE59PC  (CONSTR )  *CF  (COL ) 

IF  <CP (ROM) .Efl.COL?  THEM 
TEHP(R0N)«C0NSTR+INDEXL-1 
ENDIF 

4890  CONTINUE 

4899  CONTINUE 
C 
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C  PUT  THE  VALUES  WHICH  HERE  HELD  IN  TEMP  BACK  INTO  THE  CORRECTED 
C  C(J)  AND  A<I,J>  CQLUKNS 
C 

DO  4898  CCL*1,K 
CF!COL*iNDEXl-l)*TEHPC<CCD 
DC  4897  CONSTR*l,»: 

Af.CONSTR.COL+INKTL-DsTEWAICDNSTR.COL) 

IF (TEMP  4COHSTR  > . 67. 0>  THEN 
CB (CONSTR ) *TENP ( C  DNSTR ) 

ENDIF 

4897  CONTINUE 

4898  CONTINUE 

8H*0.0 

DO  4866  J«I.V 
IFiABSiCO(J))  .ST.  BN) THEN 
BH-ABS iCO( J) J 
ENDIF 
4866  CONTINUE 

BH*AN1NT(BH)U0 
IF(8N  .LT.  10) THEN 
BH*10.0 
ENDIF 

DO  4877  CGNSTR=1,K 
IF (INEC (CONSTR)  ,NE.  OITHEN 

CF (CGNSTR+INDEXL-i >=CF  < CQNSTR+INBEXL-1 ! -BN 
ENDIF 
4877  CONTINUE 
RETURN 
END 
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CC«»0«/VAR1 /AO ( 20, 20) , W !20, 60) , BO  CO) , 8F (20) , C0<20> , CF<60) , 2 
.,K,V,IFLAG(10),1NEQ<20),CB(2Q! 
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